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maintenance, and by system programmers involved in 
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Preface 



The purpose of this publication is to 
enable the reader to locate specific areas 
of the utility programs provided for the 
IBM System/360 Operating System, and to 
relate those areas to the corresponding 
program listings - 

The publication is divided into three 
major sections, corresponding to the three 
major types of utility programs: system 
utilities, data set utilities, and indepen- 
dent utilities. Each section contains 
descriptions of the programs of the corres- 
ponding type; these descriptions consist of 
text, flowcharts, and figures showing rec- 
ord and table formats. 

The introduction provides a brief 
description of each utility program, and an 



appendix lists the modules of the utility 
programs . 

To use this publication effectively, the 
reader should have an understanding of the 
material in the following publications: 

IBM System/360 Operating System : 

Principles of Operation , Form A22-6821 

Utilities , Form C28-6586 

Concepts and Facilities , Form C28-6535 

System Control Blocks , Form C28-6628 

Introduction to Control Program Logic 
Program Logic Manual , Form Y28-6605 
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and/or user label exits. 

• IEBCOPY. This program has been modified for data set 
compression. 

• The blocking factor for data set utility programs and for 
system utility programs that use QSAM has been modified. 

Other changes to text, and small changes to illustrations, 
are indicated by a vertical line to the left of the change; 
changed or added illustrations are denoted by the symbol • to 
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Introduction 



IBM Sy stent/3 60 Operating System provides 
the user with utility programs that perform 
basic operations. These programs are 
grouped in three categories: system utili- 
ties, data set utilities, and independent 
utilities. 



System utilities are executed under the 
operating system; these programs treat data 
associated with the structure of the 
operating system. They are: 

• IEHPROGM, a program that modifies con- 
trol data contained in catalog and 
volume structures. 

• IEHMOVE, a program that duplicates 
collections of data sets to produce 
extra copies or rearrange existing 
ones. 

• IEHLIST, a program that lists a catalog 
(or a portion thereof) , a volume table 
of contents, and the directory of a 
partitioned data set. 

• IEHIOSUP, a program that updates the 
Transfer Control (XCTL) tables embedded 
within load modules and access executor 
modules for the I/O support functions 
OPEN, CLOSE, and EOV. 

• IFCDIP00, a program that writes the 
SYS1.LCGREC data set in initialized 
format. 

• IFCEREPO, a program that edits and 
prints environmental records from 
SYSl.LCGREC. 

• IEHUCSLD, a program that loads the 2821 
generator storage with user-supplied 
character images. 

• IEHINITT, a program that creates volume 
labels on magnetic tape. 

• IEHDASDR, a program that dumps, 
restores, and initializes direct access 
volumes. 

Data set utilities are executed under 
the operating system and perform operations 
on data sets at the logical record level. 
They are: 



IEBCOPY, a program that copies all or a 
specified portion of a partitioned data 
set. 



IEBCOMPR, a program that compares two 
data sets at the logical record level. 

IEBGENER, a program that copies or con- 
verts a sequential data set to a parti- 
tioned data set. 

IEBPTPCH, a program that prints or 
punches all or selected portions of a 
sequential data set, a partitioned data 
set, or specified members of a parti- 
tioned data set. 

IEBISAM, a program that copies, 
unloads, loads and prints indexed 
sequential data sets. 

IEBUPDAT, a program that modifies the 
symbolic library. 

IEBUPDTE, a program that incorporates 
source language modifications into 
sequential and partitioned data sets. 

IEBEDIT, a program that produces an 
edited input job stream data set from a 
master input job stream data set. 

IEBDG, a program that produces test 
data sets for use in program debugging 
procedures . 



Independent utilities are executed out- 
side and in support of IBM System/360 
Operating System. They are: 

• IBCDASDI, a program that initializes 
and assigns alternate tracks on direct 
access volumes. 

• IBCDMPRS, a program that dumps and re- 
stores the data contents of a direct 
access volume. 

• IBCRCVRP, a program that recovers data 
from a track on direct access storage, 
replaces defective records with data 
supplied by the user, and writes the 
composite data on an operative track of 
the original volume. 
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System Utility Programs 



System utility programs are executed under 
the operating system in the problem program 
mode. These utilities treat data asso- 
ciated with the structure of the operating 
system. They are; 



IEHPROGM, a program that modifies con- 
trol data in volume and catalog 
structures. 

IEHMOVE, a program that duplicates 
collections of data sets to provide 
backup copies or to rearrange existing 
ones. 

IEHLIST, a program that lists the cata- 
log or a portion thereof, a volume 
table contents, and the directories of 
partitioned data sets. 
IEHIOSUP, a program that updates the 
transfer control (XCTL) tables con- 
tained within the I/O support routines 
OPEN,, CLOSE, and EOV. 
IFCDIPOO, a program that writes the 
SYS1.L0GREC data set in initialized 
format. 

IFCEREPO, a program that edits and 
prints environmental records from 
SYS1.L0GREC. 

IEHUCSLD, a program that loads the 2821 
generator storage with user-supplied 
character images. 

IEHINITT, a program that creates volume 
labels on magnetic tape. 
IEHDASDR, a program that dumps, re- 
stores, and initializes direct access 
volumes. 



The system utility programs IEHPROGM, 
IEHMOVE, IEHLIST, IEHIOSUP, IEHUCSLD, and 
IEHINITT use the queued sequential access 
method (QSAM) to read and write the SYSIN 
and/or SYSPRINT data sets or their (user- 
designated) equivalents. For these pro- 
grams, SYSIN and SYSPRINT data sets also 
may have a blocking factor that is other 
than one. 



AUXILIARY PARAMETERS 

IEHPROGM, IEHMOVE, IEHLIST, IEHIOSUP, 
IEHUCSLD, IEHINITT, and IEHDASDR may be 
invoked by a problem program. In this 
case, the calling program provides the uti- 
lity program with certain auxiliary parame- 
ters in main storage, as shown in Figure 1. 
If the utility program is invoked by job 
scheduler, only the pointer to the EXEC 
statement parameters is present. 



DEVICE ALLOCATION AND VOLUME MOUNTING 
(IEHMVSSF AND IEHMVXSF) 

IEHPROGM, IEHMOVE,. and IEHLIST require that 
volumes be mounted dynamically. However, 
the serial numbers and device types of 
these volumes are not necessarily known to 
the user at the time the job is submitted. 
For example, in moving a group of data 
sets, the names of individual data sets in 
the group and their corresponding volume 
information are not known to the IEHMOVE 
program until it scans the catalog for the 
information. Once this information is 
known, data control blocks may be con- 
structed within the program itself contain- 
ing ddnames associated with units on which 
the appropriate volumes may be mounted, 
using the OPEN (type=J) routine. 



In order to ensure that necessary 
volumes are mounted or mountable, two rou- 
tines reside on LINKLIB: 

• IEHMVSSF, which is used by IEHPROGM and 
IEHLIST. 

• IEHMVXSF, which is used by IEHMOVE. 

Each contains the control section IEH- 
VOLMT. The difference between the two rou- 
tines is that linkage to the first is via 
branch-and-link, whereas linkage to the 
second is via transfer control (XCTL) . 

The logical flow of IEHVOLMT is shown in 
Chart 01. Figures 2 and 3 show the format 
of data supplied to IEHVOLMT by the calling 
routine. Figure 4 shows the format of an 
internal table maintained by IEHVOLMT in 
allocated main storage; the internal table 
is built once for each execution of IEHMOVE 
and IEHLIST, and once for each time IEH- 
PROGM gives control to the volume mounter. 

For each volume mounting request, IEH- 
VOLMT returns to the calling routine a 
pointer to a ddname associated with a unit 
on which the desired volume may be mounted. 
The ddname is inserted into a field of the 
DCB and the desired volume is mounted by 
the open routine (type J). Actual mounting 
is accomplished by either IEHVOLMT or the 
calling routine, as indicated by Field 3 of 
the internal table header (Figure 2). 

The essential processing in IEHVOLMT 
lies in the comparison of two masks: the 
first is obtained from the device mask 
table, using the device type supplied by 
the calling routine; the second is con- 
structed by IEHVOLMT, using the UCBs allo- 
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cated to the current task. 1 In each mask, 
each bit represents a unit: in the first 
mask, an "on" condition means that the unit 
will accept the device type under consi- 
deration; in the second, an "on" condition 



x The UCBs are found as follows: location 
16 in main storage points to the communica- 
tions vector table, which in turn contains 
a pointer to a list of UCB pointers. The 
task I/O table (TIOT) is then used to dis- 
tinguish the appropriate UCBs. 



means that the unit has been allocated to 
the current task. When both conditions 
occur for a given unit, IEHVOLMT checks to 
see if the desired volume is already 
mounted; if it is, an indication to that 
effect is returned. If the volume is not 
already mounted, the ddname associated with 
that unit (as found in the TIOT) can be 
used by the open routine (type J) to mount 
the desired volume on the allocated unit. 
As explained earlier, the open routine may 
be invoked by either IEHVOLMT or the cal- 
ling routine. 



Reg.l 
r t 



T" 

| code | 

I- +- 

| code | 

h +- 

| code | 
l x. 



code=x* 80 
for last 
and x'00' 



entry 
otherwise 



|r T- 

count | 

L JL. 



EXEC statement parameters 



max. 40 



i r r 

count | ddname 

L J- 



I ddname 



ddname 



j ddname 
h 

h 

i< 

|. 

(alternative SYSIN ddname 

j. 

| alternative SYSPRIMT ddname 
j 

| ddname 

,. ._ 

(alternative SYSUT1 ddname 
j. 

(alternative SYSUT2 ddname 

L , 



r T" 1 

count | first output page number) 

L x j 



•Figure 1. Auxiliary Parameter format for IEHPROGM, IEHMOVE, IEHLIST, IEHIOSUP, 
IEHUCSLD, IEHINITT, and IEHDASDR 
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I I 
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]_* _]_*__ I { { J 



T" T 



L 



Legend: * denotes field is set by IEHVOLMT 
Figure 2. Internal Table Header 



r t 

| L 1-byte count of volume 

j mounting requests 

I 

L 1-byte count of internal 

table entries 

-2 bytes unused 

■3-byte pointer to internal 
table 



L 



L 



I 



1-byte indicator 

3-byte pointer to list of 
volumes not to be dis- 
mounted (e.g. SYSIN) 

1-byte count of volumes 
not to be dismounted 



i , j 



T 



T T 

I I * 

X—,. J._ T 



f 



Legend: * denotes field is set by IEHVOLMT 
Figure 3. Volume Mounting Request 



l 



L 

L 



2-byte relative pointer to 
internal table entry 

6-byte volume serial 

U-byte device type 



L J 
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Indicator Settings : Field 3 of the inter- 
nal table header (Figure 2) may have the 
following settings: 



Bit Value Meaning 

No mounting is to be done. 
1 Mounting is to be done. 

1 No dismounting. 

1 Volume mounting requests having 
the high-order bit of the rela- 
tive table address set to 1 are 
to be dismounted (the units 
made available) . 

2 Ignore old requests (ignore 

usage code. Figure 4). 

1 Old requests are valid. 

3 Build internal table. 

1 Internal table is already 
built. 

4 Unused. 

5 Unused. 

6-7 01 All volume mounting requests 
accomplished. 

10 No volume mounting requests 
accomplished. 

11 Some volume mounting requests 
accomplished: those volume 
mounting requests having a 
relative table address of zero 
were not accomplished. 



The calling routine must open this data 
set. The control card routine inserts the 
address of the end-of-file routine KEOF in 
the DCB. 



The calling sequence for RDCDRT is as 
follows: 



• Register 13 points to the first byte of 
the work area. 



• Register 14 points to the return 
address in the calling routine. 



• Register 15 points to the entry point 
RDCDRT. 



< 2 bytes > < 2 bytes- 

r t 



internal 
table length 



displacement 
to mask 



usage j 
code j 



pointer to ddname 



usage j 
code j 
+- 



pointer to ddname 



j. + . 

| usage | 
| code | 
j. x. 



pointer to ddname 



mask length 1 



device mask* 



CONTROL CARD SCANNER (RDCDRT) 

IEHMOVE and IEHLIST contain copies of a 
control card scan routine, RDCDRT. Each 
call to RDCDRT results in the return of the 
item scanned, together with an indication 
of the type (operation, keyword, or parame- 
ter). In IEHMOVE, the routine has the load 
module name IEHMVESJ; in IEHLIST, it has 
the name RDCDRT. 



This routine reads control cards (using 
QSAM) , checks syntax, and returns to the 
calling routine a command word, a keyword, 
or a parameter. 



^Device mask length, in bytes, is equal 
to the number of UCB pointers in the UCB 
pointer table. 

Figure 4. Internal Table Maintained by 
IEHVOLMT 



Upon returning control to the calling 
routine, the control card routine returns 
the following information: 

• Register 1 points to the starting 
address of the item scanned. 

• Register 2 contains the length of the 
item scanned. 



The calling routine supplies a 19 2-byte 
work area (on a fullword boundary) followed 
by the DCB for the control card data set. 



• The first byte of the 192-byte work 
area is labeled SWITCHRD; its tits have 
the following meanings when set to 1: 
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Bit Meaning KGTCD 

reads a card into the work area, using 

Syntax error QSAM. 

1 Bypass switch 

2 End-of-file 

3 Initial entry KTRT 

4 Command word saves the "start" address of the scan, 

5 Keyword and scans for a delimiter. 

6 Parameter 

7 Parameter or keyword 

delimited by a right KPPARC 

parenthesis. stores the address and length (of the 

item scanned) in registers 1 and 2. 
The control card routine contains the 
following subroutines: 

KINVAL 
RDCARD is entered when an invalid delimiter 

resets switches and saves registers is found. 

3-14. 



Chart 01. IEHVOLMT - Volume Mounting Logic 



****A1********* 
I 4 

* ENTRY * 
> * 

*************** 



FOR IEHPROGM.IEHMOVE.AND IEHLIST 



**B2******* 



* INTERNAL * 

TABLE TO BE 
*. BUILT .* 



* CI *-> 

V '• 

**** 



. * ARE * . 
.* ANY OLD *. 
.MOUNTINGS TO . 
*. BE HELD .* 



.* ARE ANY *. 

♦.VOLUMES TO BE. 

* . FREED . * 



* GETMAIN FOR * 

* INTERNAL * 

* TABLE * 
* * 

*********** 



*****C2 ********** 

* * 

* ADJUST VOLUME * 
>* USAGE ♦- 

* INDICATOR * 

***************** 



*****D2* ********* 

* * 

* ADJUST VOLUME * 
>* USAGE ♦- 

* INDICATOR * 

* * 
***************** 



. ♦ GENERIC *. NO 

->♦. DDNAME TO 3E .* 

♦.EXCLUDED .* 



*****3 4 ********** 

♦ PLACE * 
♦GENERIC DDdAME * 

>* IN INTERNAL *- 

* TABLE * 

***************** 



*****£X ********** 

* * 

* SEARCH DEVICE * 
♦MASK TABLE WITH+ 

* DEVICE TYPE ♦ 

* * 
***************** 



*****G1********** 

* COMPARE * 

* DEVICE MASK ♦ 

* FOUND TO INT- 
♦ERNAL TABLE MSK+ 

* CONSTRUCTED ♦ 
***************** 



♦<- 



*****F2 ********** 
* SCAN UCBS FOR ♦ 
♦DEVC TYPE, BLD ♦ 
->*MASK INDG OCBS *- 
♦CORRESPOND. TO ♦ 
♦ACCEPT. DEVICES+ 
***************** 



♦ WAS AN 

ACCEPTABLE 
*.UCB FOUND. 



.♦ ANY ♦. K 
->*MORE VOLS TO BE*- 
♦. MOUNTED .♦ 



****FU********* 
* 

* RETURN 
* 

*************** 



*****H2 ********** 

♦ ♦ 

♦ INDICATE ♦ 
>* VOLUME NOT ♦- 

♦ MOUNTED ♦ 

♦ * 
***************** 



.♦ANY OF THE ♦. YES 

.UNITS CONTAIN. ♦ 

♦THE VOLUME. ♦ 



*****K2 ♦♦♦♦♦♦♦♦♦♦ 
♦PREPARE TO OPEN^ 
♦ USING DDNAME + 

->♦ CORRESPONDING ♦- 
♦TO MATCHING BIT^ 

■ ♦ IN TWO MASK ♦ 
***************** 



* NO 
I 



*****j3********** 



DDNAME 

♦ POINTER ♦ 

***************** 



•*K3******* 



*********** 



THERE 

ANOTHER 

. GENERIC . 

♦DDJAME. ♦ 



*****C5********** 

♦ * 

♦ PREPARE TO * 
♦CONSTRUCT MASK ♦ 

♦ REFLECTING * 
♦DDNAMES IN TAB.* 
♦*♦+*♦♦*♦♦**♦♦+** 



* SELECT A * 
— >♦ DDNAME FROM * 

♦INTERNAL TABLE * 

* * 
***************** 



NO .♦THERE A UCB^. 
< — ♦ .CORRESPONDING. 
♦. TO THIS .♦ 
♦DDNAME. ♦ 



*****!? 5 ********** 

♦ * 

♦ SET BIT Id * 

♦ INTERNAL ♦ 

♦ TABLE MASK ♦ 

♦ * 
***************** 



ANY 

MORE 

DDNAMES 



**** 

* * 

♦ CI * 

**** 



*****K4 ********** 

♦INDICATE VOLUME* 
♦ IS MOUNTABLE, ♦ 



*************** 
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Modifying System Control Data 
(IEHPROGM) 

The IEHPROGM program is a convenient inter- 
face between the user and data management 
routines which modify volume and catalog 
structures. By means of utility control 
statements, the user may request the IEH- 
PROGM program to: 

• Scratch, rename, catalog, or uncatalog 
a data set. 

• Scratch or rename a PDS member. 

• Scratch a data set assigned by the 
operating system. 

• Euild or delete an index level, index 
alias, or generation data group. 

• Connect or release a control volume. 

The general design of the program is 
shown in Figure 5. For each request listed 
above, the program issues one or more 
supervisor calls (SVCs) for data management 
routines which perform the requested ser- 
vice; the IEHPROGM program interfaces with 
these routines by building parameter lists 
for them, invoking them, and analyzing 
their returns. 

Following the return from a data manage- 
ment routine, further processing by the 
IEHPROGM program may include additional 
calls to data management routines, as in 
the case, for instance, of supplying the 
catalog with index levels needed to catalog 
a data set by its specified, fully- 
qualified name. 



PROGRAM STRUCTURE 

The program consists of seven load modules 
and a dynamically allocated work area: 



f ENTRY J 



The Root resides in main storage 
throughout the program's execution, 
contains V-type address constants 
needed by the overlay supervisor. 



It 



• The Parameter List Builder initializes 
the program, obtains and analyzes 
requests, and builds a parameter list 
for the appropriate data management 
routine. 

• The Volume Mounter ensures that all 
volumes needed to service the request 
are mounted or mountable. 

• The SVC Return Analyzer issues the 
appropriate SVC and analyzes its 
return. In some instances, additional 
SVCs may be issued by this module. 



Get a request; 
set up a major 
routing table to 
handle the request 



Build a parameter 
list by decoding 
the routing 
table 



'Issue SVC to 

/data manageme^ 

k routine, and pass 

parameter 

list 



Analyze the return 
from data manage- 
ment and prepare 
to issue another 
SVC if necessary 



I 



Yes 




Figure 5. The General Design of the 
IEHPROGM Program 

• The Auxiliary Parameter Analyzer ana- 
lyzes auxiliary parameters supplied to 
the IEHPROGM program by a calling pro- 
gram, and also opens SYSIN and 
SYSPfilNT. 

• The Message Writer writes all diagnost- 
ic messages and operator instructions 
issued by the program. 

• The Volume Look-up obtains volume 
information from the device name table 
when the keyword parameter VOL occurs 
in a request. 

• The Work Area is obtained dynamically 
by the Parameter List Builder. 

The overlay structure of the program is 
shown in Figure 6; each block represents a 
control section (CSECT) . 

The structural flow of the program is 
shown in Figure 7. The Auxiliary Parameter 
Analyzer, Message Writer, and Volume Lookup 
are subordinate load modules; the others 
are control load modules. 
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Control 
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Figure 6. The Overlay Structure of the IEHPROGM Program (Each block represents one con- 
trol section) 



IEHEBASE 



Root 



IEHEUP1 



IEHRESET 



Parameter 

List 

Builder 



IEHMOUNT u 



Volume 
Mounter 
(with 
Initiator) 



IE HEUP1A| 



SVC 

Return 

Analyzer 



IEHINVOC 



Auxiliary 
Parameter 
Analyzer 




IEHEMSGX 




Figure 7. The Structural Flow of IEHPROGM 
Program (Each block represents 
one load module) 



The linkage procedure used to execute a 
subordinate load module and shown in 
Figure 8 is as follows: 



1. Module A loads the address (coded as a 
V-type address constant) of an entry 
point, Bl, to module B in register 15; 
A branch-and-link instruction is then 
issued by module A, resulting in the 
following action: 

a. The address of the next sequential 
instruction is loaded into regis- 
ter 14, and 

b. A branch is made to the overlay 
supervisor. 

2. The overlay supervisor then causes 
module B to be loaded and gives con- 
trol to entry point Bl. The return 
address in register 14 is now meaning- 
less, since module B has overlaid 
module A. 

3. Module B returns control (indirectly) 
to module A by loading the address of 
an entry point to module A in register 
15 and branching to it, resulting in a 
branch to the overlay supervisor. 

4. The overlay supervisor then causes 
module A to be loaded and gives con- 
trol to entry point Al. Since module 
A has now overlaid module B, the 
return address in register 14 is 
re-established . 

5. The instruction at entry point Al 
gives control to the instruction at 
the return address. 



System Utility Programs: IEHPROGM 17 



Module A 



Module B 



Al 



L 15, Bl 
BALR 14, 15 



BR 14 




Figure 8. Linkage Procedure Used by the 
IEHPRCGM Program to Invoke a 
Subordinate Load Module 



CONTROL LOAD MODULES 

The Root, the Parameter List Builder, the 
Volume Mounter, and the SVC Return Analyzer 
are control load modules. 

The Root (IEHEBASE) 

The Root consists of one CSECT, IEHEEASE. 
It contains V-type address constants needed 
by the overlay supervisor, and a branch 
instruction to the Parameter List Builder. 

The Parameter List Builder (IEHEUP1, 
IEHEDC1, IEHEDC2) 

The Parameter List Builder contains three 
CSECTS: IEHEUP1, IEHEDC1, and IEHEDC2. 



FDLD 

decodes the routing table in use. 
Each routing table indicates a 
sequence of operations to be per- 
formed; FDLD effects these opera- 
tions by decoding the routing table. 



KODECODE 

causes keyword parameters to be 
scanned from a utility control sta- 
tement, and successively directs 
control to subroutines which move 
parameter data to the parameter list 
for the data management SVC. The 
list is at location IEHMAC1 in the 
work area. 



IEHESCAN 

scans a control statement for an 
operation or an operand. 



IEHETLU 

performs a table look-up for the 
address of a routine or a routing 
table: if the search argument used 
is an operation, a routing table 
address is retrieved; if the search 
argument used is an operand, a rou- 
tine address is retrieved. 



IEflEDCl 



IEHEUP1 



builds the parameter list for the ini- 
tial SVC to the appropriate data mana- 
gement routine. It contains seven 
routines: COMMENCE, IEHRESET, FNDE- 
CODE, FDLD, KODECODE, IEHESCAN, and 
IEHETLU. The parameter list (Figure 
11) is built at location IEHEMAC1 in 
the work area. 

COMMENCE 

initializes the program by estab- 
lishing addressability and obtaining 
a work area of 4416 bytes in irain 
storage. 

IEHRESET 

initializes for a new request by 
resetting switches. 

FNDECODE 

determines the operation (e.g. 
SCRATCH) requested, and stores the 
address of its routing table at 
location FINUSE in the work area. 
The use and format of the routing 
tables are discussed under "Program 
Flow." 



contains seven tables: TABLEN3, TAB- 
LEN4, TABLEN5, TABLEN6, TABLE N7, CATA- 
LOG, and UNCATLG. 

Each of the tables TABLENn consists 
of a variable number of entries: the 
first n bytes of each entry is an 
operation or keyword operand, and the 
last four bytes of each entry is the 
address of a routing table (for an 
operation) or a routine (for a keyword 
operand) . As an example, TABLEN6 con- 
tains as typical entries 



C* RENAME 1 
CDS NAME 1 



AL4 (RENAME) 
AL4(DSNAME) 



where RENAME is the symbolic location 
of the RENAME routing table, and 
DSNAME is the symbolic location of the 
routine given control when the data 
set name is scanned. 

The tables CATALOG and UNCATLG are 
major routing tables for the catalog 
and uncatalog operations. 



IEHEDC2 



contains the major routing tables 
DELETEX, CONNECT, RELEASE, BUILDA, 
DELETEA, SCRATCH, ELDX, and RENAME. 
The use and format of all routing 
tables are discussed under "Program 
Flow . " 
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The Volume Mounter (IEHMOUNT, IEHVOLMT. 
DEVMASKT) 

This segment ensures that all volumes 
needed by the data management routine are 
mounted or mountable. Three CSECTs are 
present: IEHMOUNT, IEHVOLMT, and DEVMASKT. 

IEHMOUNT 

is entered from IEHEUP1 when the para- 
meter list for the initial data mana- 
gement SVC has been built. IEHMOUNT 
then calls IEHVOLMT, if necessary, to 
ensure that a needed volume is already 
mounted or is mountable. IEHVOLMT is 
called in the following cases: 

1. For a SCRATCH or RENAME request, 
the volume ID from the control 
statement is passed to IEHVOLMT, 
together with an indication that 
the volume is not to be mounted. 
(The scratch and rename data 

management routines themselves 
perform volume mounting.) The 
call to IEHVOLMT serves as a 
check that the volume is 
mountable. 

2. For any other request, if CVOL is 
specified, IEHVOLMT is passed the 
volume ID, together with an indi- 
cation that the volume is to be 
mounted. IEHVOLMT is not called 
otherwise. 

For cases (1) and (2) above, IEH- 
VOLMT normally returns a pointer to a 
ddname associated with a channel-unit 
on which the volume is mounted or can 
be mounted. IEHMOUNT then inserts the 
ddname into the data control block 
(DCB) needed to perform I/O operations 
on the volume. Control is then given 
to IEHEUP1A. 

If the volume is not mountable, as 
indicated by the return from IEHVOLMT, 
IEHMOUNT aborts the request, giving 
control to IEHEUP1 to honor the next 
request. 

IEHVOLMT and DEVMASKT are discussed under 
the heading "Volume Mounting and Device 
Allocation." 

The SVC Return Analyzer (IEHEUP1A) 

This segment issues, and analyzes the 
returns of, all data management SVCs used 
by IEHPROGM to perform a requested opera- 
tion. The SVC Return Analyzer segment con- 
sists of a single control section, IEHEUP- 
1A, which contains ten routines: LATAB, 
FDLD, OPENVTOC, GETADSCB, SVCRET, SVC26RET, 
INDEX8, NEEDINDX, SCANIT, and VTOCRET. 



FDLD 



LATAB 



stores the address of the routing 



table in use at location FINUSE in the 
work area. 



decodes the routing table, directing 
control to the routines indicated by 
the table. (This is the same FDLD 
present in IEHEUP1, the Parameter List 
Builder. ) 



OPENVTOC 

constructs a DCE for the VTOC to be 
opened for a Scratch VTOC request, and 
then opens the VTOC. 

GETADSCB 

reads the VTOC and scratches the fol- 
lowing DSCBs for a Scratch VTCC 
request: 

1. If the SYS keyword was specified, 
each system-assigned data set (a 
data set having a name beginning 
with the 36 characters AAAAAAAA. 
AAAAAAAA . AAAAAAAA . AAAAAAAA . ) is 
scratched. 

2. If the SYS keyword was not speci- 
fied, each Format 1 DSCB is 
scratched. 

The VTOC is closed when an EOF is 
detected in reading it. 

SVCRET 

interprets the returns from the 
scratch (SVC 29) and rename (SVC 30) 
routines. The return is used as an 
indexing factor on the branch table 
BRANTAB, giving control to an appro- 
priate diagnostic routine. 

SVC26RET 

interprets returns from the catalog 
and index (SVC 26) routines. SVC26RET 
uses BRANTAB in the same manner as 
SVCRET; the difference between the two 
routines is that SVC26RET also inter- 
prets the return from the locate rou- 
tine (locate is used by both catalog 
and index) . 

INDEX8 

gives control to SVC26RET to interpret 
an error return from the Locate 
routine. 

NEEDINDX 

is entered the first time SVC26RET 
detects that an index level supplied 
in a utility control statement was not 
found in the catalog. NEEDINDX passes 
the index name to SCANIT. 

SCANIT 

constructs a parameter list for an SVC 
to the index routine each time a 
return shows that an index level was 
absent. 
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VTOCRET 

effects the writing of diagnostic mes- 
sages following a return from the 
scratch routine on a SCRATCH VTCC 
request. 



SUBORDINATE LOAD MODULES 

The subordinate load modules of the program 
are the Auxiliary Parameter Analyzer, the 
Message Writer, and the Volume Look-up. 



The Auxiliary Parameter Analyzer (IEHINVOC) 

The Auxiliary Parameter Analyzer (IEHINVOC) 
analyzes any auxiliary parameters passed to 
the IEHPRCGM program by a calling program 
and moves the DCBs for the data sets SYSIN 
and SYSPRINT (or their substitutes) to the 
work area and opens them. 



The Message Writer (IEHEMSGX) 

The Message Writer (IEHEMSGX) writes all 
messages issued by the program. Messages 
are written on the SYSPRINT data set unless 
a calling program specifies otherwise; con- 
sole messages are written using the job 
management WTO routine. 

Input to the message writer consists of 
a full word in register 0: 

Byte is unused. 

Byte 1 Bits 0-5 are unused. 

Bit 6 is set to one if the message 
to be written is to be placed at 
the next available location in the 
output buffer; otherwise it is set 
to zero. 

Bit 7 is set to zero if the mes- 
sage is to be written during the 
current execution of the message 
writer, and to one otherwise. 

Byte 2 contains the relative position in 
the buffer of the message. 

Byte 3 contains the message number. 



Volume Look-up (IEHDTTLU, DEVNAMET) 

This segment obtains volume information for 
use by IEHVOLMT and data management. It is 
called only when information specified by 
the VOL keyword is encountered by IEHESCAN. 
The segment consists of two CSECTs: IEHDT- 
TLU, a table look-up, and DEVNAMET, the 
device name table maintained at the instal- 
lation. At the time IEHDTTLU is entered, 
register 2 points to a 28-byte field in the 



work area consisting of the following 
subf ields: 

1. ( Bytes 0-7 ) contain the value supplied 
to the keyword operand VOL (left- 
justified and padded with blanks), as 
scanned from a utility control 
statement. 

2. ( Bytes 8-11 ) are initially blank. 

3. ( Bytes 12-15 ) contain the return 
address (coded as a V-type address 
constant) . 

4. (bytes 16-27) are initially blank. 

IEHDTTLU then stores registers 3-5 in 
subfield 4, and performs a table look-up in 
DEVNAMET, using subfield 1 as a search 
argument. The table value of the argument 
is moved to subfield 2, and control is 
returned to the location specified by sub- 
field 3. 

Subfield 2, the table value of the 
search argument, is of the following 
format : 

Byte 8 contains a bit configuration used 
by the I/O Supervisor. 

Byte 9 contains a device option code. 

Byte 10 contains a device class code. 

Byte 11 contains a device type code. 



PROGRAM FLOW 

The logical flow of the program proceeds 
in three phases: 

• Phase 1 (Chart 02) , during which a 
major routing table is established for 
the operation to be performed. 

• Phase 2 (Chart 03) , during which the 
major routing table is decoded, causing 
the parameter list to be built for the 
SVC to a data management routine, and 
causing appropriate volumes to be 
mounted. The parameter list (Figure 
11) is built at location IEHEMAC1 in 
the work area. 

• Phase 3 (Chart 04) , during which the 
initial SVC is issued, its return ana- 
lyzed, and any additional SVCs issued 
in order to complete the request. 

Phase 1 

The program receives control of the CPU 
when the keyword operand PGM=IEHPROGM is 
encountered in an EXEC statement, or when 
the program is invoked by a calling pro- 
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gram. The Root segment immediately gives 
control to the Parameter List Builder seg- 
ment. The registers are saved and the work 
area is obtained. Any auxiliary parameters 
are analyzed, and SYSIN and SYSPRINT are 
opened. A new request is initialized for, 
and then obtained (using BSAM) . 

FNDECCDE then directs control to IEHES- 
CAN to scan the operation name (e.g., 
SCRATCH) from the utility control statement 
image. IEHETLU then uses the name thus 
obtained to look up the address of the 
major routing table corresponding to the 
given operation. FNDECCDE then places this 
address at location FINUSE in the work 
area, for use in Phase 2. 

Communication between FNDECODE, IEHES- 
CAN, and IEHETLU is effected through the 
use of the communication table. IEHECHAR (in 
the work area), shown in Figure 9. IEHE- 
CHAR is also used in Phase 2 in scanning 
keyword operands. 



Phase 2 

This phase of the program decodes the major 
routing table established during Phase 1. 
Decoding of the routing table results in 
the scanning of keyword operands, the 
volume look-up, the building of the para- 
meter list for the data management routine 
to be used, and the mounting of volumes. 

Major routing tables appear in CSECTs 
IEHEDC1 and IEHEDC2 in the Parameter List 
Builder segment. There is one major rout- 
ing table for each operation of the IEH- 
PROGM program; the symbolic name of the 



routing table is the same as the name of 
the operation it supports. Each major 
routing table consists of a variable number 
of entries; the first byte of each entry 
contains a routine code, and the remaining 
bytes of the entry contain information use- 
ful to the routine. Figure 10 shows the 
format of the routing table for the Catalog 
operation. 

As indicated on Chart 03, FDLD decodes 
the successive entries of the major routing 
table in use, directing control to the 
indicated routines. 

Note : It is possible for the sequence of 
operations indicated by a routing table to 
be interrupted, possibly even broken. For 
example, if a syntax error on a control 
statement is encountered, the address of 
the major routing table will be replaced by 
the address of a routing table which will 
effect the writing of appropriate messages. 
FDLD would then decode this table, causing 
IEHEMSGX to write the selected messages. 
The last entry in tables of this nature 
will then either cause the address of the 
original major routing table to be 
restored, or will cause the request to be 
aborted, depending on the severity of the 
situation. 

The scanning of keyword operands takes 
place when a routine code of hexadecimal 01 
is encountered. KODECODE directs control 
to IEHESCAN to scan a keyword or keyword 
value. If VOL is present as a keyword, the 
value supplied to it in the control state- 
ment is passed to IEHDITLU, the Volume 
Look-up, and the device information retri- 
eved from the look-up is saved for the 



Format 



r 1 

I 
.| 

I 
-I 

I 

— ^ 
i 

JU 



Contents 

I-byte character for which to scan 

1-byte condition code on which scan should stop 

1-byte code for last character scanned 

1-byte length of item scanned 

4-byte address of where to begin scan 

4-byte address of where to end scan if condition not found 

4-byte address of last item scanned 

4-byte address of table (for IEHETLU; otherwise zero) 

4-byte address found in table by IEHETLU (or zero) 



Figure 9. IEHECHAR, the Communication Table for FNDECODE, KODECODE, IEHESCAN, and IEHETLU 
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The CATALOG Routing Table 



Explanation of Table Entries 



|. + 



r T T T T T T 1 



01 | 00 | 70 



00 



24 | 00 | 00 | 00 | 



,. + a + + a J. x_ J 

02 J 00 | 50 j 0C 
^ + + - + ^ 

04 | x | x 

t — + — + — + — ^ 

08 | y | y 

-+ -+" 

0A | 00 | 00 

-A A. 

Routine Code 



j. + _ + + ^ 



x 

y 

01 



L A A A J 



DSNAME, CVOL, and VOL are acceptable 

parameters . 

DSNAME and VOL are required. 

xxx = address of error routine. 

yyy is unused. 

The number of this major routing table 
is 1. 



I A J 



Figure 10. The CATALOG Routing Table 



Volume Mounter and data management rou- 
tines. When a value supplied to another 
keyword is detected t a look-up is performed 
by IEHETLU, using the keyword (e.g., 
DSNAME) , to retrieve the address of a key- 
word routine, which is then given control. 
(The symbolic address of a keyword routine 
is identical to the keyword name. For 
example, the symbolic address of the DSNAME 
routine is DSNAME.) The keyword routine 
then enters the keyword value information 
into the parameter list for the data mana- 
gement routine. Control is then given back 
to IEHESCAN to scan the next keyword para- 
meter, and the cycle continues until an EOF 
condition is detected in reading SYSIN (or 
its substitute) . 



When the control statement has been 
scanned, control is given back to FDLD to 
decode the next entry in the major routing 
table. Successive entries in the major 
routing table may test for the presence of 
minimum allowable parameters (TESTDUP) , 
establish a temporary routing table to 
write messages (LINKSAVE) , restore the 
major routing table (DCRETURN), or read and 
log the remaining cards (READALL) . If an 
error has been found in the utility control 
statement, the request is aborted, and con- 
trol is given to IEHRESET to honor the next 
request. 



If no error has been found, the last 
entry of the major routing table will have 
been decoded. The last entry of each major 
routing table causes FDLD to give control 
to GETAVOL, which places the number of the 
major routing table at location FINUSE in 
the work area, and then gives control to 
the Volume Mounter. If any required volume 
is not mounted or mountable, control is 
given to IEHRESET; otherwise, control is 



given to the SVC Return Analyzer (IEHEU- 
PIA) , and Phase 3 is entered. 

At the completion of Phase 2, the para- 
meter list for the initial SVC to a data 
management routine has been built at loca- 
tion IEHEMAC1 in the work area. The for- 
mats of the various parameter lists for the 
data management routines are shown in 
Figure 11. 

Phase 3 

Phase 3 issues, and analyzes the returns 
of, all SVCs to data management routines 
used to accomplish IEHPROGM functions. At 
the time Phase 3 is entered, the parameter 
list for the initial SVC has been built, 
and all volumes are mounted or mountable. 

Using the routing table number placed at 
FINUSE (in the work area) during Phase 2 by 
routine GETAVOL, routine LATAB replaces the 
routing table number with the address of a 
carry-over routing table, to be decoded by 
FDLD. If the current request is a SCRATCH 
VTOC request, the carry-over routing table 
will cause itself to be replaced with the 
routing table VTOCDCS. Otherwise, the 
carry-over routing table will simply cause 
the SVC to be issued, by means of the entry 



X'OO' 



AL3 (SVC instruction) 



FDLD then decodes the carry-over routing 
table, establishing the VTOCDCS routing 
table only if the request is to scratch a 
VTOC. 

SVCRET and SVC26RET decode the return 
from the data management routine used, 
directing control through the branch table 
BRANTAB to diagnostic routines (NEEDINDX, 
SCANIT, INDEX8), or to message-effecting 
routines. 
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SCRATCH (SVC 29) 
r 



UNCATALOG (SVC 26) 



SVC bit configuration 



tDSNAME 



UNUSED 



tVOLLIST 



SVC bit configuration 



tDSNAME 



tCVOL 



UNUSED 



BUILD ALIAS (SVC 26) 



SVC bit configuration 



t INDEX 



tCVOL 



t ALIAS 



CONNECT (SVC 26) 



SVC bit configuration 



t INDEX 



tCVCL 



tVOL 



RENAME (SVC 30) 

r ■ 1 

| SVC bit configuration 



tDSNAME 



t NEWNAME 



t VOLLIST 



BUILD INDEX (SVC 26) 



j SVC bit configuration 
h ^ 



t INDEX 



h 

j tCVCL 



J. 

j UNUSED 

L 



DELETE ALIAS (SVC 26) 



j SVC bit configuration 
|. H 



| tALIAS 
h 



| tCVOL 



| UNUSED 
L 



RELEASE (SVC 26) 



j SVC bit configuration 
|. .j 



t INDEX 



tCVCL 



| UNUSED 
L - . 



CATALOG (SVC 26) 

r 1 

| SVC bit configuration! 
j. _ ., 

I tDSNAME I 



J. 

j tCVOL 



I- 

j tVOLLIST 

L 



DELETE INDEX (SVC 26) 

r i 

| SVC bit configuration | 



I 
h 



t INDEX 



| tCVOL 



UNUSED 



BUILD GENERATION (SVC 26) 

r i 

| SVC bit configuration! 



t INDEX 



tCVOL 



UNUSED 



Notes : 



• At time of SVC, register 1 contains the address of the parameter list. 

• Each parameter list is constructed at IEHEMAC1 in DSECT, the work area. 

• The addresses in the above parameter lists point to the following items: 

DSNAME 44-byte data set name 

NEWNAME 44-byte new name of data set 

INDEX 44-byte index name 

ALIAS 8-byte alias 

VOL 6-byte volume ID 

CVOL 6-byte volume ID 

VOLLIST 2-byte count followed by a variable number of fields of the following 
format: 

4-byte table value from DEVNAMET 

6-byte volume ID 

2-byte sequence number (for taped volumes) 

L 

Figure 11. Parameter Lists Built by IEHPROGM for Data Management Routines 
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Control is directed in the following 
way: 

1. The return code (in register 15) is 
used by routine SVCRET or SVC26RET 
(depending on the SVC) as an indexing 
factor to retrieve a code number from . 
the current entry of the active rout- 
ing table. (The current entry is the 
entry following that entry designating 
the SVC.) 



gram from the catalog routine (SVC 26) , 
routine SVC26RET would use the contents of 
register 15 to retrieve a code number from 
this return-indexing entry. If the return 
code from the catalog routine were 28, for 
example, a code number of eight would oe 
retrieved. Routine SVC26RET would then 
give control (via the branch table BRANTAB) 
to the diagnostic routine indicated by a 
code number of eight. 



2. The code number thus retrieved is used 
as an indexing factor to give control 
to the appropriate IEHPROGM diagnostic 
routine to treat the type of return. 
Control is given to a diagnostic rou- 
tine by means of a branch table, 
BRANTAB. 

Example ; Figure 12 shows the return- 
indexing entry of the CATALOG routing 
table. This entry is at location CATALOG+ 
28, immediately following the SVC entry. 
Following the return of control to the pro- 



CATALOG+28 

r T T T T T T T T T T T 1 

| 01 1 02 1.03 1 04 1 00 | 06 | 07 1 08 | 00 1 00 | 00 | 00 | 

L J. X J. J. J. JL J. J. J. J. X J 

4 8 12 16 20 24 28 32 36 40 44 
Return code from Catalog (Reg. 15) 
Indexing factor for BRANTAB 

L J 

Figure 12. The Return- Indexing Entry (for 
the Catalog SVC) of the Catalog 
Operation 
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Chart 02. IEHPROGM Phase 1 - Modifying System Control Data 



****A1********* 

K * 

* ENTRY * 
k * 

*************** 



* BRANCH * 
->* TO *- 

* IEHEUP1 * 

* * 
***************** 



* SAVE * 
>* REGISTERS. * 

* GETMAIN * 

* * 
***************** 



* OPEN * 


* SYSIN AND * 


* SYSPRINT * 


* * 


***•*******•****' 


**** 




*02 * 




* C3 *-> 




* * 




**** 




IEHRESET V 


*****C3* ********* 


* * 


* INITIALIZE * 


* FOR A NEW * 


* REQUEST * 



***************** 



**D3******* 

* * 
*GET A CONTROL* 

* STATEMENT 
* FROM SYSIN 

* * 
*********** 



SYSINEND 

*****Q4 ********** 

EODAD *CLOSE SYSIN AND* 

* SYSPRINT, * 
>* FREEMAIN, *- 

* RESTORE * 

* REGISTERS. * 
***************** 



****D5 ********* 

* RETURN * 
>* TO * 

* SUPERVISOR * 
*************** 



************ 



A 
L********4 



* WRITE * 

* APPROPRIATE *< 

* MESSAGE * 

* * 
***************** 



* SCAN * 

* OPERATION * 

* NAME * 

* * 
***************** 



*LOOK UP ADDRESS* 

* OF MAJOR * 

* ROUTING TABLE * 

* * 
***************** 



* NO .* IS * 
.* *. OPERATION IN 

* *. TABLE .* 



*****H3 ********** 

* * 

* PLACE ROUTING * 

* TABLE ADDRESS * 

* IN WORK AREA * 

* * 
***************** 



************* 



***** 



******** 



***** 
♦03 ♦ 
* Al* 
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Chart 03. IEHPROGM Phase 2 - Modifying System Control Data 



FDLD 

*****&!********** 

♦EXAMINE ROUTINE* 

* CODE OF * 
r — >* ENTRY IN *- 

* ROUTINE TABLE * 

* * 
***************** 



*****B1********** 

* * 

* GO TO ADDRESS * 
-*IN LAST 3 BYTES*<- 

*OF TABLE ENTRY * 

* * 
***************** 



* TEST TO SEE * 
-* IF MINUMUM * 

* PARAMS ARE * 

* PRESENT * 
***************** 



->*. ROUTING CODE . *- 



* SET UP TO * 
>* ANALYZE *- 

* OPERANDS * 

4 * 

***************** 



* SET UP PARAK * 
->* FOR SCAN AND * 

* TABLE LOOK-UP * 

* * 
***************** 



* GET A NEW 
-* ROUTING 

* TABLE (FOR 

* MESSAGES) * 
***************** 



*<- 



♦RESTORE POINTER* 
< — * TO ROUTINE *< 

* TABLE * 

* * 
***************** 



+ PRINT * 
-* INDICATED *< 

* MESSAGE * 

* (IEHEMSGX) * 
***************** 



* ENTER ALIAS * 
< — * PARAMETER *< 

* INTO DELETEA * 

* * 
***************** 



* READ AND LOG * 
-* REMAINING *< 

* CARDS * 

* * 
***************** 



B2 *. 

* * 

IS 

CODE 

= 00 

*. .* 

*. . * 

* NO 



NOTE - ROUTINES 
INDICATED BY A 
ROUTINE CODE ARE 
NOT NECESSARILY 
EXECUTED IN THIS 
ORDER. ORDER OF 
EXECUTION IS 
DETERMINE BY THE 
MAJOR ROUTING 
TABLE IN USE 



♦SCAN AN OPERAND* 
>* FIELD FROK * 

* CONTROL * 

♦ STATEMENTS ♦ 
***************** 



* *. **** 


CONTINUE 


END OF *. YES * * 


DECODING 


CONTROL . ♦ >* Al ♦ 


TABLE 


STATEMENT.* * * 





VOLUME 

KEYWORD 

PRESENT 



. * ADDRESS ♦ 
♦.OF PARAK RTN 
*. NEEDED .* 
*. .* 
♦ . .♦ 
♦ NO 
**** 

* * 

* FU *-> 

* 4 
**** 

*****F4 ********** 

* * 

* PARAMETER * 
-* ROUTINE * 

* (SEE NOTE * 

* BELOW) * 
***************** 



NOTE - THERE IS ONE PARAMETER 
ROUTINE FOR EACH ALLOWABLE 
PARAMETER. EACH ROUTINE MOVES 
PARAMETER INFORMATION FROM THE 
CONTROL STATEMENT OR FROM THE 
LOOK-UP TABLE TO THE PARAMETER LIST. 
THE SYMBOLIC NAME OF EACH ROUTINE 
IS IDENTICAL TO ITS CORRESPONDING 
KEYWORD PARAMETER, E.G., D3NAME, 
NEWNAME, ETC. 



*****D5 ********** 

* * 

* PREFORM * 
->* VOLUME LOOKUP * 

* IN DEVNAME'i * 

* ♦ 
***************** 

**** 

* * 
L_>* FU ♦ 

* * 
**+* 

iETLU 
***** £5 ********** 

* ♦ 

* LOOK UP * 
>* ADDRESS OP * 

* PARAMETER * 

* ROUTINE * 
***************** 



H2 ♦ 
.* 
YES .* CODE 



CODE 09 

v 

***** 
ABORT THE *02 * 
REQUEST * A3* 
* * 



.* CODE = 09 *. 

OR 

♦.CODE = 0A.* 



*****J3********** 

* INTERFACE * 

* WITH VOLUME * 
->* MOUNT ROUTINE *- 

* (IEHVOLMT) * 

* * 
***************** 



ARE *. 
VOLUMES 
.MOUNT ABLE.* 



— V 
***** 
*04 * 
* Al* 



*****K2 ********** 

* * 

* PLACE NUMBER * 

* OF TABLE IN *- 

* USE AT FINUSE * 

* * 
***************** 



***** 
*02 * 
* C3* 
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Chart 04. IEHPROGM Phase 3 - Modifying System Control Data 



***** 

♦ 01 * 

* Al* 



* ACTIVATE * 

* ROUTING ♦- 

* TABLE * 

* * 
***************** 



DECODE * 

ROUTING ♦ - 

TABLE * 

* 

*************** 



*****£ 1********** 

* THE RENAME * 
♦ROUTINE SHOULD * 

* HAVE MOUNTED *< 

* THE PROPER * 



**B2******* 

* RENAME * 

* THE PDS * 

-* USING ITS OWN ♦<- 

* flAME * 

* * 
*********** 



B3 



*. 



.*IS THIS*. 
YES .A SCRATCH OR*. 

*. RENAME 

*. MEMBER .* 
*. REQ .* 

*. .* 

* NO 



' *. 


**** 


WAS THE *. NO 


* * 


VOLUME . * 


->* F2 * 


MOUNTED .* 


* * 


.* 


**** 



.* THIS A *. YES * 

* . SCRATCH VTOC . * >* 

*. REQUEST .* * 



* IS THE 

PDS ON THE 
♦ . VOL 



. NO 



**** 
* * 

* F2 * 

* * 
**** 



.♦IS THIS*. 
.* A SCRATCH *. 
. OR RENAME . 
*. REO. .* 



* STOW (WITH 
* CHANGE 

* OPTION) 

* 4 

*********** 



**D2******* 

* * 

SVC 29 

♦ * 
*********** 



**E2******* 

* * 

* STOW (WITH 
* DELETE 

* OPTION) 

* * 
*********** 



*****P2 ********** 



* FKi.Nl * 

>* APPROPRIATE * t 

* MESSAGE * 

***************** v 



SCRATCH 
A DATA 
SET 



TYPE 

OF 

REQUEST 



MODIFY 

THE 
► . CATALOG 



OPEN VTOC * 

OF SELECTED *- 

VOLUME * 

* * 
***************** 

**** 

* 

* D4 * — i 

* * 
**** 

**D4******* 



•n 



SVC 26 



*********** 



**E3******* 

svc 30 

* 4 

*********** 



* ANALYZE 

* RETURN CODE 

* IN REG. 15 
* 
*************** 



***************** 



EODAD 

ON 
VTOC 



***** 
*02 * 
* C3* 



. * IS * . 
. * THE DATA *. 
. SET SYSTEM- . *<- 
♦.ASSIGNED .* 



. * WAS ♦ . 
.♦ 'SYS' KEY 
WORD 
♦.SPECIFIED. 



♦ANALYZE RETURN ♦ 
>*CODE IN REG. 15* 

* OR REG. 1 * 

♦ ♦ 
***************** 



* A NEW * 

INDEX LEVEL 
*. NEEDED .* 



NOTE- THE NAME 
OF A SYSTEM- ASSIGNED 
DATA SET BEGINS WITH 
THE 36 CHARACTERS 
AAAAAAAA. AAAAAAAA. 
AAAAAAAA. AAAAAAAA. 



**GS***++** 

t * 

SVC 

29 

(SCRATCH) 

► * 

*********** 



. * . SVCRET 

Hty *. *****H5**++++++** 

.* HAVE *. * RESET POINTER * 

.*WE BUILT A *. YES * ANALYZE ♦ 



***************** 



******** 

♦ * 

♦ PREPARE TO ♦ 
♦ANALYZE LOCATE ♦<- 

♦ SVC RETURNS ♦ 

♦ REG. 1 ♦ 
***************** 



YES .* ERROR ON 

♦. LOCATE SVC 

♦. RETURN . 



* PRINT ♦ 

* APPROPRIATE ♦ 

* MESSAGE ♦ 
t * 
***************** 



* FIRST-TIME ♦ 
♦ENTRY FOR INDEX* 
♦LEVEL BUILDING ♦ 

♦ * 
***************** 



SCANIT 

*****K4 ********** 

♦ SCAN AN INDEX ♦ 

♦ LEVEL NAME * 
♦FROM STATEMENT * 
♦AND PREPARE TO * 

♦ ISSUE SVC ♦ 
***************** 



VTOCRET V 

*****J5**» ******* 

♦ WRITE * 

♦ RESET POINTER ♦ 

♦ TO DIAGNOSTIC ♦ 

♦ ROUTINE TABLE ♦ 

***************** 



IEHEMSGX 

*****K5 ********** 

♦ WRITE ♦ 

♦ APPROPRIATE * 

♦ MESSAGE FOR ♦ 

♦ D3CB HANDLED ♦ 

♦ ♦ 
♦♦♦**********♦♦♦* 



L_ 



***** 

♦ 02 * 

* C3* 
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Moving and Copying Data (IEHMOVE) 



The IEHMOVE utility program reproduces one 
or more data sets. The irove operation 
relocates a. collection of data and 
scratches the source data; the copy opera- 
tion produces a replica of the source data, 
and leaves the source data intact. 
Throughout this discussion, the word "•copy" 
will refer to both the MOVE operation and 
the COPY operation. 

The program is serially reusable. It 
copies the following collections of data: 

• A data set 

• A volume 

• A group of data sets related by a 
catalog 

• A catalog 

Depending on the compatibility of the 
source and receiving volumes, the movabili- 
ty of the source data set, and the alloca- 
tion of space on the receiving volume, an 
attempt to copy a data set may result in an 
"unloaded" version of the data set. This 
version of the data set is in a format 
recognizable to the IEHMOVE program, but is 
not directly usable by other programs. An 
attempt to copy an unloaded data set onto a 
volume that would have originally supported 
a successful operation results in the 
"loading" of the unloaded data set, that 
is, the reconstruction of the original data 
set. 

If a user has requested the processing 
of input/output header/trailer labels, this 
program will handle the direct moving or 
copying of such labels as they exist on the 
data sets to be moved or copied. 



OVERALL FLOW 

Figure 13 shows the design of the IEHMOVE 
program; each of the smaller blocks repre- 
sents a load module, while each of the 
larger blocks represents a grouping of load 
modules by function: 

• Program Set-up 

• Request Set-up 

• Message Writing 

• Data Set Group (DSGROUP) Set-up 

• Data Set and Volume Set-up 

• Partitioned Data Set (PDS) Subroutines 

• Copying, Unloading, and Loading 

• Data Set Wrap-up 

• DSGROUP Wrap-up 

Charts 05 through 10 show the logical 
flow of the program as follows: 



VOLUME Logic 
PDS Logic 
DSNAME Logic 
CATALOG Logic 



Chart 07 
Chart 08 
Chart 09 
Chart 10 



Overall Flow 
DSGROUP Logic 



Chart 05 
Chart 06 



Control is passed between loads almost 
always by means of Transfer Control (XCTL) , 
with the following exceptions: 

1. The stem, IEHMOVE, links to IEHMVXSE. 
The corresponding return to the stem 
is issued at the conclusion of the 
program by IEHMVESK. 

2. The message writer, IEHMVESU, is 
always linked to. 

3. IEHMVESR, a PDS subroutine which 
retrieves directory entries from a 
work data set, is always linked to. 



PROGRAM STRUCTURE 

Program Set-up (IEHMOVE, IEHMVXSE, 
IEHMVXSF) 

The function of initializing the program 
for a job is performed by three loads: 
IEHMOVE, IEHMVXSE, and IEHMVXSF. 

IEHMOVE 

is the stem, which is present during 
the entire execution of the program. 
It obtains main storage for a work 
area (IEHMVV) to be used by the rest 
of the program. 

IEHMVXSE 

allocates space for the work data sets 
and opens them, clears the work area, 
and sets up an initial call- to 

IEHMVXSF. 

IEHMVXSF 

is the volume mounter, described under 
the heading, "Device Allocation and 
Volume Mounting." The first-time 
entry of this routine builds the 
internal table used by the volume 
mounter. 

Request Set-up (IEHMVEST, IEHMVESJ, 
IEHMVESS) 

The program is initialized to handle a 
single request by three loads: IEHMVEST, 
IEHMVESJ, and IEHMVESS. 

IEHMVEST 

initializes the work area, for a requ- 
est and sets up an initial call to 

IEHMVESJ. 

IEHMVESJ 

is the control statement scanner, de- 
scribed under the heading "Control 
Card Scanner." 
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Read catalo 
write on 
SYSUT1 



Close catalog; 
set up request 
for a data set 
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PDS Subroutines 






Get directory 
entry from 
SYSUT3 



IEHMVETG 



Write directory 
entries of 
included members 
on SYSUT3 



XCTL 



XCTL 



Mount volume 
for PDS of 
included member 



C RETURN J ( XCTL | 






Set up to copy 
a single data 



Data Set & Volume Set-up 
XCTL 



XCTL 



Mount Volumes 



Test for 
feasibility 
of copying 



Allocate 

for "TO" data set 



Build DCBs 
for_"FROM" and 
"TCV^data sets 



Copying, Unlooding, & Loading 



Copy BSAMor 
PDS - No 
reblocking 



Copy Type F 
BSAM or PDS- 
Reblock 



: PDS Sub- 
Routines 



I I 



Copy type V 
BSAM or PDS- 
Reblock 



iPDS Sub- 
Routines 



I 



Unload 
BSAM or PDS 



PDS Sub- j 
Routines ' 



Load 

BSAM or PDS 



PDS Sub- | 
Routines . 



Copy, unload, 
or load 
BDAM 



Load 
Catalog 



Read catalog, 
write on 
SYSUT2 



Copy, unload, 
or load 
catalog 



No More 
Requests 



Another 
Request 



■o 



DSGROUP Wrap-up 



Group Moved; 



Read SYSUT2, 
catalog on "TO" 
volume. 



Copy 
DSGROUP 



Move 
DSGROUP 



Request 



■O 



Another 
Request 



No More 
Requests 



Notes 

1.. XCTL from IEHMVXSE, IEHMVEST, or IEHMVESS 



2. Write 'TO' data set info on SYSUT2. When group 
has been moved, set up to catalog. 



Data Set Wrap-up 



Close "FROM" 
and "TO" data 
sets 



Operation 
Wos Move 



Error 



Operation 
Was Copy 



Do cataloging or 
uncafaloging for 
data set moved 



Do cataloging or 
uncataloging for 
data set copied 



Unfinished 
Volume Copy 




Permanent 

I/O on SYS PR I NT 



Another 
Request 



No More Requests 



IEHMVESK 



Close SYSIN, 
SYSPRINT; close 
and scratch 
work files 



Return to Stem 



O 



Figure 13. The Design of the IEHMCVE Program 
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IEHMVESS 

analyzes the information scanned by 
IEHMVESJ. For a PDS request, IEHMVESS 
writes the following information: 

• Member names to be included or to 
replace on SYSUTl (the format is 
shown in Figure 14). 

• Member names to be excluded or to 
be replaced on SYSUT2 (the format 
is shown in Figure 15) . 



IEHMVESI 

opens the catalog and sets up a call 
to IEHMVESC. 

IEHMVESC 

reads the catalog and writes data set 
information on SYSUTl (see Figure 18) . 

IEHMVESH 

closes the catalog and sets up a requ- 
est to copy a single data set, using 
data from SYSUTl. 



KEY 



I 
-1-J 



l — 8-byte 

member name 



Figure 15. 



DATA 

r t 1 

I I I 

l T x T-- J 

I I 
I I 
| L — 9 bytes unused 

I 

L — 1-byte indicator 
E=excluded member 
R=replaced member 



SYSUT2 Record Format (for a PDS 
Request only) 



Message Writing (IEHMVESA, IEHMVESU) 

All messages are written by IEHMVESU. 
Whenever IEHMVESS effects a message, it 
first interfaces through IEHMVESA, which 
contains messages and linkage to IEHMVESU. 



DSGROUP Set-up (IEHMVESI, IEHMVESC, 
IEHMVESH) 

Preliminary operations needed to copy a 
group of data sets are performed by three 
loads: IEHMVESI, IEHMVESC, and IEHMVESH. 



Data Set and Volume Set-up (IEHMVESZ, 
IEHMVXSF, IEHMVESX, IE HM VESV, IEHMVESY) 

Preliminary operations needed to copy a 
single data set are performed by five 
loads: IEHMVESZ, IEHMVXSF, IEHMVESX, IEHM- 
VESV, and IEHMVESY. 

IEHMVESZ 

examines the request and sets up a 
call to IEHMVXSF. For a VOLUME requ- 
est, IEHMVESZ reads the VTOC and 
obtains a DSCE; if a catalog is 
detected on the volume, its presence 
is noted, but no request to copy it is 
set up until the data sets are copied. 

If an abnormal termination is indi- 
cated as the result of an error in 
either this module or a called subrou- 
tine, this module initiates termina- 
tion of the program. User label exits 
are not processed at this time. 

IEHMVXSF 

is the volume mounter, described under 
the heading "Device Allocation and 
Volume Mounting." This execution of 
the volume mounter effects volume 
mounting. 



KEY 

r t t 1 

II II 



DATA 
r r~ 



l — 2- byte 

sequence number 



■6-byte volume ID 
■ 4-byte device type 



T T 



J 



._ + X J. + 

I Same as Key | y 

I 

8-byte member name — J 
or new name 



4 bytes unused •* 

L 8-byte member name 

44-byte data set name 



■1-byte indicator 
I=include this member 
R=this member will replace a 

member 
S=select this member 



Figure 14. SYSUTl Record Format (for a PDS request only) 
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IEHMVESX 

performs tests on the data set to be 
copied. Tests include movability, 
unload or load, access method type, 
compatible block size, and compatible 
receiving device. If a catalog had 
been detected in IEHMVESZ, space is 
allocated for it on the 'TO* volume. 

When user-label processing has been 
specified, this module processes the 
input header labels as it opens the 
input data set. If storage in which 
to save the labels is required, it is 
obtained in this module. 

IEHMVESV 

causes space to be allocated for the 
'TO' data set. If user labels exist 
in the 'TO* data set and user-label 
processing has been requested, an 
additional track will be allocated for 
the user labels. The DS1EXT1 field of 
the DSCB is modified for this purpose. 
(For a preallocated 'TO* data set, 
(i.e., one that has been allocated 
before the execution of the IEHMOVE 
program) the user must provide a user- 
label track to permit the labels to be 
moved.) If the 'FROM' data set is a 
PDS, the directory entries of members 
to be copied are written on SYSUT3. 
During abnormal terminations that are 
handled by this module, no user-label 
exits are processed. If a user-label 
track has not been allocated, the mes- 
sage text in this load module informs 
the user that labels cannot be moved 
or copied. 

IEHMVESY 

builds, using DCB and label informa- 
tion specified by FROMDD and TOBD (if 
given in an operation involving 7- 
track or 9- track unlabeled tape) , the 
DCBs for the •FROM' and 'TO* data sets 
and directs control to the appropriate 
module to copy, unload, or load the 
data set. 

When user-label processing has been 
specified, this module processes the 
output of the user header labels that 
have been saved by the program, as it 
opens the output DCB. 

If this module encounters errors such 
that an abnormal termination is indicated, 
the module initiates termination of the 
program. If user-label processing has been 



specified, the processing operations are 
not performed during the abnormal termina- 
tion procedures. 

If variable spanned records are indi- 
cated, this module will identify the 
record format and determine to which 
module control is to be given for pro- 
cessing each record. If logical 
copies involving changes in the record 
format (RECFM) , the block size 
(BLKSIZE), or the logical record 
length (LRECL) of data set records are 
attempted, an error is indicated and a 
message is printed. The program will 
then attempt to move the rest of the 
data sets as requested. 

This module also writes the first 
records of an unloaded data set and 
determines the module that next 
receives control to perform the actual 
move/copy operation. 



PDS Subroutines (IEHMVESR, IEHMVETG, 
IEHMVXSF) 

If a partitioned data set is being copied 
or unloaded, IEHMVESR is always used by the 
copying module, whereas IEHMVETG (which 
uses IEHMVXSF, the volume mounter) is used 
if the request specifies PDS. Figure 13 
shows which loads use PDS subroutines. 

IEHMVESR 

is used to obtain a directory entry 
from the work data set SYSUT3. If the 
directory entry is from the PDS being 
copied, it was placed on SYSUT3 by 
IEHMVESV (Data Set and Volume Set-up) ; 
if the directory entry is from an 
INCLUDE or REPLACE option, it was 
placed on SYSUT3 by IEHMVETG. The 
format of a directory entry on SYSUT3 
is shown in Figure 16. 

IEHMVETG 

places directory entries of members 
from INCLUDE, REPLACE, or SELECT 
options on SYSUT3. Each execution of 
IEHMVETG places the directory entries 
to be included from one PDS. When 
there are no more members to be 
included in the copy, IEHMVETG gives 
control to IEHMVESN. IEHMVXSF, the 
volume mounter, is used as needed. 
The logic of IEHMVXSF is described 
under the heading "Device Allocation 
and Volume Mounting." 
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KEY 



DATA 



* 



L ft- 



8-byte member name 



"f 



T" 



8-byte new | 

member name 

or, if none, old member name 



l — maximum 74-byte directory entry 
l — 5-byte CCHHR of this record on SYSUT3 



Figure 16. SYSUT3 Record Format 



Copying, Unloading, and Loading 

The load modules used to copy, unload, 
and 'load data are grouped according to the 
type of data set and format condition as 
shown in Figure 17. The modules are de- 
scribed below: 

IEHMVETA 

copies, unloads, or loads a catalog. 
If the catalog is to be loaded, it is 
in the format shown in Figure 18. The 
entries are then cataloged on the 
receiving volume. If the catalog is 
to be unloaded or copied, IEHMVESC 
first writes catalog entries on SYSUT1 
as shown in Figure 18; IEHMVETA then 
catalogs them on the receiving volume 
(for a copy) or else simply writes 
them in the same format (for an 
unload) . 

IEHMVETL 

copies, unloads, or loads a BDAM data 
set. The data set is copied using 
BDAM read and BSAM write (load mode) 
routines. If the input data set reco- 
rd format is type u, the block length 
of each physical record is read and 
calculated and then passed to BSAM 
write. This calculation is unneces- 
sary for types F and V and is 
bypassed. 

If user-label processing has been spe- 
cified, this module obtains any neces- 
sary storage in which to save the 
labels. This is done when either the 
end of a data set has been reached or 
a switch to another volume is to be 
made. The saved labels will be passed 
to the data set wrap-up routines. 

IEHMVETJ 

copies a BSAM data set or a PDS. A 
BSAM data set is copied using BSAM in 
a simple read-write loop. When either 
the end of a data set or the end of a 
volume has been reached in reading, 
storage will be obtained, if neces- 
sary, for saving any labels for which 
processing has been requested. The 
saved labels will be passed to the 



data set wrap-up routines. For a PDS, 
at the time IEHMVETJ receives control, 
the directory entries of members (bar- 
ring any EXCLUDES or REPLACES) of the 
•FRCM' PDS are on SYSUT3, where they 
were written by IEHMVESV (Data Set and 
Volume Set-up). The 'FROM' PDS is 
then copied as follows: 

1. IEHMVETJ directs control to IEHM- 
VESR, which reads from SYSUT3 one 
directory entry of the PDS. 

2. If the entry indicates a note 
list is present, IEHMVETJ reads 
the note list. Using BSAM, IEHM- 
VETJ then reads and writes member 
records up to the note list. The 
note list is then updated and 
written with the new TTRs of the 
members . 

3. When all note lists and member 
records have been written, the 
directory entry is updated with 
the new note list addresses and 
then stowed. This process is 
repeated for each directory entry 
on SYSUT3. When the 'FROM' PDS 
has been copied, control is given 
to IEHMVETG to write on SYSUT3 
the directory entries for all 
members to be included, selected, 
or to replace from another PDS. 
IEHMVETJ then copies these mem- 
bers as outlined. ILHMVXSF (the 
volume mounter) is given control 
by IEHMVETG as needed. 

IEHMVESL and IEHMVESM 

copy partitioned and BSAM data sets if 
the 'TO* data set has been pre- 
allocated (that is, before execution 
of IEHMOVE) and the 'FROM* and f T0» 
DSCBs indicate that reblocking is 
necessary in order to perform copying. 

IEHMVESL 

copies (with reblocking) a PDS or BSAM 
data set having type F record format. 
Blocks are read (using BSAM) until the 
output block size is surpassed, and 
then logical records are sectioned 
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from the high-order end of the buffer 
until the output block size is 
reached. The block is then written, 
using BSAM. The last block (of a BSAM 
data set or of a member of a PDS) is 
written as a truncated block if neces- 
sary. For a PDS f any user TTRs are 
ignored. 

If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 

IEHMVESM 

copies (with reblocking) a PDS or ESAM 
data set having type V record format. 
The operation is similar to that of 
IEHMVESL: blocks are read using BSAM 
until the maximum output block size is 
surpassed, and then logical records 
are sectioned from the high-order end 
of the buffer until the size of the 
output buffer is not greater than the 
maximum block size. As with IEHMVESL, 
any user TTRs are ignored in a PDS. 

If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 

IEHMVERD 

unloads a PDS or a ESAM data set. For 
a BSAM data set, the data set is read 
one block at a time. After .each read, 
the block is prefixed by three-to-six 
bytes of control information, and then 
deblocked into 7 8-byte sections. Each 
section is then prefixed with a 2-byte 
physical sequence number. The resul- 
tant 80-byte blocks are then written, 
or, if the receiving device permits, 
ar.2 reblocked in groups of ten to be 
written out as 800-byte blocks. The 
last block written is padded with 
blanks. For a PDS, the directory 
entry of a member is first read into 
the buffer. Each note list is read 
and followed by member records which 
precede it in the PDS. Aliases are 



read last. The buffer is sectioned 
and control information inserted. The 
process is repeated for each directory 
entry and its member blocks. Direc- 
tory entries are read from SYSUT3 by 
IEHMVESR. The options INCLUDE, 
REPLACE and SELECT are ignored in 
unloading; the option EXCLUDE is not 
ignored. 

If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 



r : — t 

Type of | 

Data Set j Format Condition 



t 1 

Load Modules 
Used 



Catalog | Normal 



Catalog j Previously 
j unloaded 



BDAM 



I 

| Any 



PDS or | Normal, copiable 
BSAM | no reblocking 



PDS or | Type F, copiable 
BSAM | with reblocking 



PDS or JType V, copiable 
BSAM j with reblocking 



PDS or | Normal, uncopiable 
BSAM j must be unloaded 

I 
+ 

PDS or (Previously 
BSAM j unloaded 



ILHMVETA with 
IEHMVESC 



IEHMVETA 



IEHMVETL 



IEHMVETJ With 
IEHMVETG 
(PDS only) 
IEHMVESR 
IEHMVXSF 



IEHMVESL with 
IEHMVETG 

(PDS only) 
IEHMVESR 

(PDS only) 
IEHMVXSF 



IEHMVESM with 
IEHMVETG 

(PDS only) 
IEHMVESR 
IEHMVXSR 



IEHMVERD with 
IEHMVESR 
IEHMVXSF 



IEHMVERA 



Figure 17. Load Module Groupings for Copy- 
ing, Unloading, and Loading 
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KEY 



t 



l — 12 bytes 
unused 



DATA 
- T _ T 



DEPENDENT ON CODE (see below) 



-J._-L- 



4 4 



l — l-byte code (0,4,8,0 
l 2-byte length 

CODE=0 (DATA SET ENTRY) 



- T - T - 

I I 
.J.-J.- 



, t 



J 



4 4 



up to 50 1 2-byte 

volume entries 
•- 2-byte number of 

volume entries 
44-byte data set name 



CODE=4 (ALIAS ENTRY) 
r t — r t 



-J—L- 



t 



l — 8-byte alias 
8-byte name 



CODE=8 (CVOL ENTRY) 
r t-t t 



-L_X- 



t 



l — 6 -byte volume ID 
8-byte name 



CODE=C (GDG ENTRY) 

r t - t 



-J.—L- 



- T _ T _ T - 

I I I 

-X_X_X- 



44 4 



L Model DSCB 

L maximum generation number 

L current generation number 

3 5- byte name 



Figure 18. SYSUT1 and SYSUT2 Record Formats for DSGROUP; SYSUT1 Record Formats for 
CATALOG 



IEHMVERA 

loads a PDS or ESAM data set. For a 
BSAM data set, a block is read, the 
control information is removed and 
analyzed, and successive blocks are 
read until a block from the original 
data set is reconstructed. The block 
is then written, and the process is 
repeated until the original data set 
is loaded. For a PDS, the process is 
similar: the directory entry is first 
reconstructed, but is not stowed until 
member blocks have been written and 
note lists updated and written. At 



the time the data set was unloaded, an 
entry was written, followed by member 
blocks (in unloaded format) . 



If user-label processing has been 
requested, this module will, when 
reaching either the end of a data set 
or the end of a volume, obtain neces- 
sary storage in which to save the 
labels. When the module passes con- 
trol to the data set wrap-up routines, 
the saved labels are passed to the 
routine that receives control. 
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DSGROUP Wrap-up (IEHMVESH, IEHMVETA) 

After each data set of a DSGROUP has 
been copied, control is given to IEHMVESN 
of the Data Set Wrap-up portion of the pro- 
gram. If scratching of the 'FROM' data set 
is necessary (for a MOVE DSGROUP, for 
example), control is given to IEHMVESQ, 
which scratches the 'FROM" data set, and 
then gives control to IEHMVESH. If 
scratching is not necessary, control goes 
directly from IEHMVESN to IEHMVESH. 

IEHMVESH 

'TO' data set writes 'FROM* data set 
information on SYSUT2 in the same for- 
mat in which the information was ori- 
ginally written on SYSUT1 (see Figure 
18). This information is written so 
that the catalog can be updated as 
needed. If there is another data set 
in the group to be copied, IEHMVESH 
gives control to IEHMVESZ to set up 
the next copy; if all the data sets 
have been copied, IEHMVESH sets up a 
request to catalog the updated data 
set information on SYSUT2 and gives 
control to IEHMVETA. 

IEHMVETA 

reads SYSUT2 and catalogs the informa- 
tion. The process is the same as that 
followed by IEHMVETA in copying a 
catalog. 

Data Set Wrap-up (IEHMVESN, IEHMVESQ, 
IEHMVESP, IEHMVESQ, IEHMVESK) 

Load modules in this group perform ter- 
minal operations following the copying, 
unloading, or loading of a data set pro- 
cessed for a PDS, DATA SET, or VOLUME requ- 
est. In addition, when all requests have 
been serviced, control is given to 
IEHMVESK . 

IEHMVESN 

completes the moving or copying of a 
data set and closes the 'TO' and 
'FROM* data sets. 

If user labels have been specified, 
and if output trailer labels have been 
saved in storage, these labels are 
written out and the storage area is 
released. If a user-label track has 
not been allocated, the message text 
in this load module informs the user 
that labels cannot be moved or copied. 

IEHMVESC 

is entered following an unsuccessful 
copying, unloading, or loading opera- 
tion, or following a test ((Data Set 
and Volume Set-up) indicating a requ- 
est could not be honored. IEHMVESO 
prints a diagnostic message and 
scratches the 'TO' data set. 



IEHMVESP 

performs terminal operations following 
a COPY request, including any speci- 
fied or implied cataloging, uncatalog- 
ing, and scratching. 



IEHMVESQ 

performs terminal operations following 
a MOVE request, including any speci- 
fied or implied cataloging, recatalog- 
ing, and scratching. 

IEHMVESK 

is entered when all requests have been 
serviced, or when a permanent I/O 
error has been detected on the print- 
er. IEHMVESK closes SYSIN and SYS- 
PRINT, closes and scratches the work 
data sets, frees main storage, and 
returns control to the stem, IEHMOVE. 
During abnormal termination handled by 
this module, user-label exits are not 
processed. 



COMMUNICATION AREA (IEHMVV) 

The communication area for the program 
is defined at assembly time by the macro 
instruction IEHMW, which is internal to 
the IEHMOVE program. Register 12 contains 
a pointer to the communication area whenev- 
er a request for a module is issued. 

The macro instruction IEHMW generates a 
dummy section (also IEHMVV) containing work 
areas and control data for all object 
modules of the program. Main storage for 
the dummy section IEHMVV is obtained dynam- 
ically by the stem. 

The communication area consists of the 
following parts: 

• A work area of 512 bytes (IEHMV00). 

• The addresses of the beginning and end 
of an 800-xjyte work area (IEHMVV10) . 

• A table of switches controlling the 
flow of the program (IEBMW20) . 

• A control table containing the return 
codes of the control statement scan 
routine (IEHMVESJ) . 

• A table of control data for volume 
lists and include-exclude-replace lists 
(IEHMVV21-IEHMVV26) . 

• A table of addresses of the FROM data 
set's DCB, DSCE, DECE and ddname 
(IEHMVV30) and the TO data set's DCB, 
DECB and ddname (IEHMW31) . Each 
address is stored in a fullword. 
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A tatle of the addresses of the ECBs 
and DECBs Of SYSPRINT (IEHMW33) , SYSIN 
(IEHMVV32), and SYSLIB (IEHMW34). 



A table of work data set control data 
(IEHMVV39). 



A tafcle of addresses of work areas for 
loading, unloading, including, replac- 
ing, an 3 copying a PDS. 

The DCB exit list (for user-label pro- 
cessing) defined by the macro instruc- 
tion IEHDCBXL. This list is found in 
the 40-byte section IEHMW70 of the 
communication area. Included in the 
list are symbolic names for the input 
and output header-label processing sub- 
routines, the input and output trailer- 
label processing subroutines, the DCB 
exit, and the OPEN J JFCB exit. 

An area containing pointers both to the 
storage area (the label save area) 
obtained for user labels and to the 
current label being processed. These 
pointers are in the 20-byte section 
IEHMVV72. For the first label being 
processed, both pointers will indicate 
the same address. Figure 19 indicates 
these relationships. 



Function 



SYSUTl SYSUT2 SYSUT3 



IEHMVV72 

o 


+80 

"" \ — *-+160 

+240 

+320 

Etc. 


Label Save Area 




Pointer to Label 
Save Area 


Label 1 


+4 


Label 2 


Pointer to Current 
Label 




Label 3 








Label 4 




Etc. 



Example of pointers when third label is being processed 

•Figure 19. Label Save Area Pointers 



IEHMOVE WORK DATA SET RECORD FORMATS 

The program uses three work data sets: 
SYSUT1, SYSUT2, and SYSUT3. How a work 
data set is used depends on the function 
being performed by the program. The fol- 
lowing table (Figure 20) shows where record 
formats may be found. A blank entry indi- 
cates that the work data set is not used 
for the indicated function. The entry lb* 
indicates that SYSUT3 is used for any par- 
titioned data sets found within a group of 
data sets or a volume. 



r T" 

Single Data Set| 
(not a PDS) I 



Single Data Set| 



H 



(PDS) 



Volume 



|Fig. 14|Fig. 15|Fig. 16 | 

H 



DSGroup 



I Fig. 16*| 



|Fig. 18|Fig. 18|Fig. 16* | 

H 
I 



Catalog I Fig- 18 1 | 
l J. ± JL J 

Figure 20. Where to Find Record Formats 

The device on which the work data sets 
reside is allocated by job management and 
is associated with the ddname SYSUTl. The 
spaces occupied by the work data sets spe- 
cified by the names SYSUTl, SYSUT2, and 
SYSUT3 are dynamically allocated. 

Obtaining Space for a Work Data Set 

Space for a work data set (e.g., SYSUT3) is 
obtained from DADSM in the following way: 

1. The first time space is requested, it 
is requested for the data set 
♦+SYSUT3. 

2. If the return from DADSM indicates 
that a DSCB for the requested data set 
space already exists on the VTOC, the 
name previously submitted to DADSM is 
qualified by the index name consisting 
of the single character * and the 
modified request is submitted to 
DADSM. 

Step 2 is repeated until space is allo- 
cated or until 44 bytes have been used with 
no success. Thus, the first request for 
space for SYSUT3 either results in space 
being allocated for the 8-byte name 
**SYSUT3 or an indication that a data set 
of the name **SYSUT3 already resides on the 
subject volume. If the latter, space is 
requested for the data set **SYSUT3.*. The 
third request, if necessary, would specify 
the name **SYSUT3. *. *. A count of the 
number of times the name has been qualified 
is maintained in the communication area, 
IEBMVV . 

After space has been allocated for the 
work data sets, they are opened in the 
order: SYSUTl, SYSUT2, SYSUT3. 

Releasing Space Used by a Work Data Set 

The work data sets are not closed until 
final wrap-up. At this time, SYSUT3 is 
first closed and scratched, then SYSUT2 is 
renamed to SYSUT3 and closed and scratched, 
and then SYSUTl is renamed to SYSUT3 and 
closed and scratched. 
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•Chart 05. IEHMOVE Overall Logic 



****A1********* 
► * 

* ENTER ♦ 

» 4 

*************** 



*****A2** ******** 

* GETMAIN * 

* INITIALIZE * 
>* GET WORK *- 

+ DATA SETS * 

* * 
***************** 



n 



* WRITE INFO ON * 
♦SYSUT1, SET OP *<■ 
+ FOR ONE * 

* DATA SET * 
***************** 



*****A3********** 

* * 

* OPEN SYSIN * 
->* SYSPRINT, AND * 

♦WORK DATA SETS * 

* * 
***************** 



*****B3********** 


* GET A RBOUEST * 

* SET UP * 


r ->* PARAMETERS IN * 


* WORK AREA * 


* * 


1 ***************** 


* * 




*05 * 




* B3* 




***** 




V 


.*. 


C3 *. 


.* +. 


DSGP .* TYPE *. 


. *. OF .* 


*. REQUEST .* 



**** 

*****C4********** 

* * 

* OBTAIN A DSCB * 
>* SET UP FOR *- 

* ONE DATA SET * 

* * 
***************** 



*****B5 ********** 

* ALLOCATE FOR * 

* CATALOG, * 
-♦INDICATE THAT A* 

♦CATALOG IS PRES* 
♦ON THIS VOLUME * 
***************** 



.* CAN 
. REQUEST BE 
♦.SERVICED . 



**** 
* * 
->* B3 * 



THIS BLOCK TO PROCESS THEM. 
RETURN TO THIS BLOCK. 



* OPEN 'TO' AND * 

* 'FROM* DATA * 

* SETS, GO TO * 
♦PROPER ROUTINE ♦ 

* * 
***************** 



or Load pds * 

* or bsam data ♦ 

* SET * 

* * 
***************** 



*****F2 ********** 

♦ ♦ 

♦ COPY, UNLOAD ♦ 

♦ OR LOAD BDAM ♦ 

♦ DATA SET ♦ 

♦ * 
***************** 



THIS A 

DSGROUP 

REQUEST 



NOTE 

*****H1********** 
♦CLOSE TO 8 FROM* 

♦ SETS, WRITE ♦ 

♦ UP-DATED * TO' * 

♦ DATA SET INFO ♦ 

♦ ON SYSUT2 ♦ 
***************** 



.♦ HAVE ♦. 
.* ALL DATA *. NO 

♦.SETS IN GROUP.* 

♦BEEN PROC..+ 



NOTE 
*****G2** ******** 
♦CLOSE "TO" AND ♦ 

♦ 'FROM* DATA ♦ 
_>+SETS, CATALOG, ♦ 

♦ UNCATALOG. ♦ 

♦ SCRATCH AS NEC ♦ 
***************** 



THIS 
A VOLUME 
. REQUEST 



*****F it********** 



***************** 



.* HAVE *. 

.* ALL DATA *. 

♦ SETS IN VOLUME. 

♦BEEN PROC. .♦ 



*****K1********** 
♦UPDATE CATALOG ♦ 

♦ AS NECESSARY ♦ 

♦ WITH SYSUT2 ♦ 

♦ INFORMATION ♦ 

♦ * 
***************** 



*****K3 ********** 



* CATALOG 

PRESENT ON 
♦. VOLUME . 



* NO 
->t__. 



***************** 



*SYSIN AND SYS- 
*PRINT CLOSE AND* 

* SCRATCH WORK * 

* DATA SETS * 
***************** 



****K4 ********* 
* RETURN TO * 
» SUPERVISOR * 
► * 

*************** 
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•Chart 06- IEHMOVE DSGROUP Logic 



****A2********* 
t * 

* ENTER * 
» * 

*************** 



*****B2 ********** 



***************** 



*****C2** ******** 

* WRITE ENTRIES * 

* ON SYSUT1 FOR * 

* DATA SETS TO * 

* BE INCLUDED * 

* * 
***************** 



*****D2 ********** 
♦READ A CATALOG * 

* ENTRY FOR A * 

* DATA SET IN *< 

* THE GROUP * 

* * 
***************** 



.* IS *. 
.* THE DATA *. YES 
. SET TO BE .* — > 
♦.EXCLUDED .♦ 



*****P2 ********** 

* * 

* WRITE THE * 

* ENTRY ON ♦ 

* SYSUT1 ♦ 

* * 
***************** 



.* THERE *. NO 
♦ANOTHER CATALG.+ — 
*. IN THE .* 
♦.GROUP.* 



♦ i 

♦ GET AN * 

♦ ENTRY FROM * 

♦ SYSUT1 * 

♦ * 
***************** 



* AREA (IEHMW) * 

* TO TREAT * 

* DATA SET * 

* * 
***************** 



* OPEN THE * 
♦■TO" AND 'FROM 1 * 

* DATA SETS * 

* * 
***************** 



*****E1*********+ 

* CHART 09 * 
*-*-*-*-*-*-*-*-* 

* COPY, UNLOAD * 

* OR LOAD THE * 

* DATA SET * 
***************** 



*****F4********** 

* UPDATE THE * 

* ENTRY TO * 

* REFLECT .NEW * 
STATUS, WRITE * 



* CLOSE THE * 
*'TO' AND 'FROM'* 

* DATA SETS ♦ 

* * 
***************** 



IF USER LABELS ARE PRESENT, 
EXIT FROM THIS BLOCK TO 
PROCESS THEM. 
RETURN TO THIS BLOCK. 



. * THERE * . YES 

.ANOTHER ENTRY.* J 

*ON SYSUT 1.* 



*****j(l ********** 

* * 

* MANIPULATE * 

* THE CATALOG * 

* AS NECESSARY ♦ 

* * 
***************** 
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Chart 07. IEHMOVE VOLUME Logic 



****A3********* 

* ♦ 
» ENTER * 

* 4 
*************** 



*****B3********** 

* SET UP * 

* WORK AREA * 

* (IEHMW) TO * 
♦TREAT DATA SETS* 

* * 
***************** 



*****C3* ********* 

* * 

* OPEN * 

* THE * 

* VTOC * 

* * 
***************** 



*****D3********** 

* SET UP WORK * 

* AREA (IEHMW) * 

* OBTAIN A DSCB * 

* DATA SETS * 

* • * 
***************** 



*****£2 ********** 

* ALLOCATE FOR * 

* CATALOG * 

* INDICATE THAT *<- 
♦CATALOG IS PRES* 

* ON VOLUME * 
***************** 



*****F3**** ****** 

* CHART 09 * 
*-*-*-*-*-*-*-*-* 

* COPY. UNLOAD, * 

* OR LOAD THE * 

* DATA SETS * 
***************** 



* CLOSE THE * 
♦•TO' AND 'FROM'* 

* DATA SETS * 

* * 
***************** 



*****H3********** 

* * 

* MANIPULATE * 

* CATALOG AS * 

* NECESSARY * 

* * 
***************** 



.* IS THERE *. YES 

♦.ANOTHER DSCB .* 

*. IN VTOC .* 



IF USER LABELS ARE PRESENT, 
EXIT FROM THIS BLOCK TO 
PROCESS THEM. 
RETURN TO T.HIS BLOCK. 



*****K2********** 

* * 

* COPY * 

* THE *< 

* CATALOG * 

* * 
***************** 



*****K1) ********** 



***************** 



■~v 

***** 
*05 * 
* B3* 
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Chart 08. IEHMOVE PDS Logic 



****A1********* 

* * 

* ENTER * 

* * 
*************** 

**•* 

* * 

* Bl *-> 

* * 
*•** 

*****B1********** 

* * 

* SCAN CONTROL * 

* STATEMENT FOR * 

* PDS OPTION * 

* * 
•*****«**•**•**** 



*****A2********** 



***************** 



.* WAS *. YES 

>*■ SELECT" OPTION* 

♦.SPECIFIED.* 



NOTE. THE RECORD 
PENDING WAS NOT 
PROCESSED DURING 
LAST PASS BECAUSE 
OF A 'YES* IN 
BLOCK D1 



♦.STATEMENT.* 



THIS A 
'REPLACE' 
OPTION 



•****D2********** 

* WRITE MEMBER * 

* NAMES AND PDS * 
->♦ OF MEMBERS TO * 

* BE REPLACED * 

* ON SYSUT2 * 
***************** 



THIS 
■SELECT' 
OPTION 



.* THIS * 
*.AN 'INCLUDE' 
*. OPTION .< 



.* THIS *. YES 

♦.AN 'EXCLUDE' .* 

*. OPTION .* 



**** 

* * 

* Bl * 

* * 
• ♦** 



*****F2 ********** 

♦ WRITE MEMBER * 

♦ NAMES AND VOL ♦ 
->*IDS OF MEMBERS ♦ , 

♦TO BE PROCESSED* 

♦ ON SYSUT1 ♦ 1 
***************** v 

**** 

* * 

* Bl * 



*****G2**+""" + 

♦ WRITE MEMBER ♦ 

♦ NAMES AND PDS * 

>♦ OF MEMBERS TO ♦ ■■ 

♦BE EXCLUDED ON ♦ I 

♦ SYSUT2 ♦ I 
***************** v 

**** 



*****C3********** 

* * 

♦ READ A * 

* DIRECTORY ♦< 

♦ ENTRY ♦ 

• * 
***************** 



♦ IS ♦ YES 
♦ MEMBER NAME OH I*— > 
*. SYSUT2 .* 



*****E3 ********** 

* * 

♦ WRITE * 
♦DIRECTORY ENTRY* 

♦ ON SYSUT3 ♦ 

* * 
***************** 



.♦ THERE ♦. YES 

♦.ANOTHER ENTRY. ♦ 

♦. IN DIR .♦ 



*****G3********** 



*****BH ********** 



* SEARCH ON * 

* KEY IN SYSUT1 ♦< — <• 

* FOR VOL ID ♦ 1 

* * 
***************** 

*** 



.* THIS THE 
.FIRST 'FROM' 
* . PDS 



HAS 



.♦THE *FROM' 
PDS NAME 
. CHANGED . 



-*-*-*-*-*-*-•-* 



*****D5 ********** 



***************** 



•****E5********** 
* * 

OPEN NEW 



GET DIRECTORY *< — , * 'FROM' PDS ♦ 

ENTRY * * * 

* * * 

**************** ***************** 

**** 



• ****F(|********* 
* 

* WRITE DIR. 

♦ ENTRY ON 

♦ SYSUT 3 
* 
**************** 



* Bl * 



***************** 



*****H3 ********** 

* * 

* COPY MEMBER * 

* (FIND, READ, * 

* WRITE, STOW) * 

* * 
••••************* 



.* THERE *. YES 

♦.ANOTHER ENTRY.* 

*.ON SYSUT3.* 



*****K2********** 



CLOSE 

THE 
trpr»» 



.* ARE *. **** 

3 .♦ THERE ANY ♦. YES ♦ 

-♦.MEMBERS TO BE.* >* Alt 

♦.INCLUDED .* * 
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•Chart 09. IEHMOVE DSNAME Logic 



****A1******++* 

» 4 

» ENTER * 
► 4 

*************** 



*****B1********** 

* * 

* MOUNT * 

* PROPER * 

* VOLUMES * 

* * 
***************** 



.* SPACE FOR *. YES 

.'TO' DATA SET.* 

*.PRE-ALLO-.* 
*.CATED.* 



.* RECORD *. TYPE F * BUILD DCBS, * 

->*. FORMAT TYPE F.* >* OPEiT^TO' AND ♦- 

*. OR TYPE .* ♦'FROM' DATA SET* 



*****D1********** 
* * 

ALLOCATE * 

arc t?op 'Tn' * 



********** 



***************** 



♦BUILD DCBS OPEN* 
-^♦'TO' AND *FROM'*- 

* DATA SET * 

* * 
***************** 



*. BSAM .* MUST *. 

.* >*. DATA SET BE . 

.* *. UNLOADED .* 



' r NOTE 

*****P1********** 

* * 

* BUILD DCBS * 

* OPEN 'TO* AND * 

* "FROM* DATA * 

* SETS * 
***************** 



*-*-*-*-*-*-*-*-* 
♦COPY.UNLOAD OR * 

* LOAD BDAM * 

* DATA SETS * 
***************** 



* BUILD DCBS * 

* OPEN T TO*AND * 

* 'FROM' DATA * 

* SETS * 
***************** 



*-*-*-*-*-+- 

* UNLOAD BSAM * 

* DATA SET OR * 

* PDS * 
***************** 



.* IS *. COPY 

->*THIS A LOAD OR.* 

* . COPY . * 



* BUILD DCBS * 

* OPEN "TO'AND * 

* 1 FROM" DATA * 

* SETS * 
***************** 



*****G3* ********* 

* IEHMVERA * 
*-*-*-*-*-*-*-*-* 
*LOAD BSAM DATA * 

* SET OR PDS * 

* * 
***************** 



* BUILD DCBS * 

* OPEiJ T TO' AND * 

* 1 FfiOM" DATA * 

* SETS * 
***************** 



*-*-*-*-*-*- 
♦COPY BSAM DATA * 
* SET OR PDS * 
-* * 

***************** 



**•* 

NOTE 
*****H3********** 

* IEHMVESN * 
*_*_*_*_*_*_ *-*-*ERROR 

->*CLOSE 'TO' AND * 

* "FROM 1 DATA * 

* SETS * 
***************** 



*****HU********** 

* IEHMVESO * 
*-*-*-*-*-*-*-*-* 

>* ANALYZE ERROR * 
♦SEVERITY ABORT * 

* IF NECESSARY * 
***************** 

**** 



*-*-*-*-*-*-*-*- 
* PERFORM 
♦SCRATCHING AND 



**** 

* * 

* K3 * 

* * 
**** 



**** 

*****J1) ********** 

♦ IEHMVESP ♦ 
♦-♦-*-*-*-*-+-*-* 

>* PERFORM ANY ♦ 
♦SCRATCHING AND ♦ 

♦ CATALOGING * 
***************** 



**** 

* * 

* K3 * — , 

* * 1< 

**** v 



IF USER LABELS ARE PRESENT, 
EXIT FROM THIS BLOCK TO 
PROCESS THEM. 
RETURN TO THIS BLOCK. 



***** 
*05 * 
* B3* 



*****K4********** 

♦ IEHMVESK ♦ 
*-*-*-*-*-*-*-*-* 

->*FREEMAIN,CLOSE *- 
♦SYSIN.SYSPRINT ♦ 

* * 
***************** 



*****C5 ********** 

* IEHMVESL * 
*-*-*-*-*-*-*-*-* 

->*COPY AND REBLK * 
*TYPE F BSAM Ok * 

* PDS * 
***************** 



**** 
* 
->* H3 * 

**** 



*-*-*-*-*-*-*-♦-* 
->*COPY AND REBLK * 
♦TYPE V BSAM OR * 
♦ PDS ♦ 
***************** 



♦***J5********* 

♦ RETURN TO ♦ 

♦ SUPERVISOK * 

♦ * 
*************** 



*****K5 ********** 
* IEHMOVE * 
*-*-*-*-*-*-*-*-* 
>* STEM * 



+♦♦♦♦♦♦********** 
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Chart 10. IEHMOVE CATALOG Logic 



****A1********* 
t ♦ 

• ENTER * 

* * 
*************** 



*****B1********** 

* IEHMVXSF * 
*-*-*-*-*-*-*-*-* 

* MOUNT * 

* NECESSARY * 

* VOLUMES * 
***************** 



.* CATALOG *. YES 

*IN AN UNLOADED.* 

* . STATE . * 



*-•-*-*-*-*-*-*-* 

* SCAN CATALOG, * 

* WRITE ENTRIES * 
+ ON SYSUT1 * 
***************** 



» SHOULD 

CATALOG BE 
f. LOADED . 



* YES 
**** 

* * 

* D2 *-> 

* * 
**** 

*****D2 ********** 

* * 

* GET A REBUILT * 
*CAT ENTRY FROM * 

* 'FROM 1 VOL * 

* * 
***************** 



*****D3* ********* 

* * 

* COPY UNLOADED ♦ 

* CATALOG ONTO *- 

* THE 'TO' VOL * 

* , * 
***************** 



*****C<t********** 

* * 
♦COPY i REBLOCK * 

->* THE UNLOADED *- 

* CATALOG ONTO * 

* THE 'TO 1 VOL * 
***************** 



— v 
***** 

♦ 05 * 

* B3* 



""v 

***** 
*05 * 
* B3* 



El *. *****E2********** 

* *. * * 

COPY *. COPY * READ A * 

OR .* >* CATALOG ENTRY *- 

UNLOAD .* A * FROM SYSUT1 * 



*•** 



.* THE ENTRY *. 

->*.A GENERATION . 

♦DATA INDEX.* 



**************** 



*****F1 ********** 

* * 

* READ A * 

* CATALOG ENTRY *< — 

* FROM SYSUT1 * 

* * 
***************** 



*****Q1********** 
♦WRITE THE ENTRY* 

* IN UNLOADED * 
♦FORMAT ON 'TO' * 

* VOL * 

* * 
***************** 



. * THERE ♦ . 
•ANOTHER ENTRY. 
♦.ON SYSUT1.+ 



. ♦ THE +. 
.ENTRY A CVOL . 
♦ . POINTER .♦ 



**E4******* 

♦ INDEX SVC ♦ 
*-*-*-*-*-*-*- 

->♦ BLDX ON 
♦ 'TO~VOLUME 

* * 
*********** 



*-*-♦-*-*- 

» LNKX ON * 

* 'TO' VOLUME * 

* * 

*********** 



G3 *. **G1******* 

. * IS *. ♦ INDEX SVC * 

.* THE ENTRY ♦. ALIAS *-*_*-*_*_*_*-* 

*.AN ALIAS OR A.^ >♦ BLDA ON * 

♦.DATA SET .♦ ♦ 'TO^VOLUME * 

♦ .NAME .♦ ♦ * 

*. .* *********** 



**HU******* 

♦ CATALOG SVC* 

*-*-*-*-*-*-*-* 

->* TRY TO CATA- * 

LOG THE DSNAME+ 

♦ON 'TO' VOL+ 

*********** 



***** 
*05 * 
* B3* 



. * WAS * 
. INDEX LEVEL 
*. ABSENT .* 



.* IS *. YES 

->*. THERE ANOTHER.* n 

*. ENTRY .♦ 



*-*-*-*- 



BLDX 



VOLUME 
p * 

*********** 



* LOADING *. 

OR COPYING .*< — -I 
♦. BEING .* 
♦.DONE .* 
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Listing System Control Data 
(IEHLIST) 

The IEHLIST utility program performs three 
functions: 

• It prints a catalog or partial catalog. 

• It prints a volume table of contents 
(VTOC). 

• It prints the directories of up to ten 
partitioned data sets (PDSs) . 

The program is serially reusable, but 
not reenterable. 



• DEVNAMET is the device name table. 

• IEHINSEG interprets parameters supplied 
by a calling program. 

• IEHCSEG scans and prints cataloged 
data. 

• IEHRSEG scans and prints VTOC data. 

• IEHSSEG scans and prints PDS directory 
data. 

• IEHVOLMT mounts necessary volumes. It 
is described under the heading "Device 
Allocation and Volume Mounting." 



PROGRAM STRUCTURE 

The overlay structure of the program is 
shown in Figure 21. The program consists 
of the following control sections (CSECTs) : 

• IEHROOT performs basic program initia- 
lization. It is resident in main 
storage throughout the program's execu- 
tion, unlike the other CSECTS. IEHROOT 
contains V-type address constants 
needed by the overlay supervisor. 

• IEHMSG contains only messages. 

• IEHPSEG analyzes requests. 

• RDCDRT scans control statements. 



• DEVMASKT is a device mask table used by 
IEHVOLMT. 

Chart 11 shows the logical flow of con- 
trol through the program. Figure 22 shows 
the structural flow of the program, includ- 
ing the successive phases of the contents 
of main storage during the program's execu- 
tion. The logic of each control section 
(CSECT) of the program is described in the 
following paragraphs. 

IEHROOT 

contains miscellaneous routines needed 
in main storage throughout the pro- 
gram's execution (PERRPR, WORKERR, 
PTERM, LINEPR, DOPOINT, and PBEGIN) , 
together with several communication 
areas (CARDIN, PRINTOUT, WORKIN, and 
RONTAB) . 



IEHROOT 
Initialization 



IEHMSG 
Messages 



IEHPSEG 

Request 

Analyzer 



IEHINSEG 
Auxiliary 
Parameter 
Analyzer 



IEHQSEG 

Catalog 

Printer 



IEHRSEG 

VTOC 

Printer 



IEHVOLMT 

Volume 

Mounter 



DEVMASKT 
Device 
Mask Table 



IEHSSEG 
PDS Directory 
Printer 



RDCDRT 
Control 
Statement 
Scan 



DEVNAMET 
Device 
Name 
Table 



Figure 21. The Overlay Structure of the IEHLIST Program 
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IEHROOT 






IEHROOT 




— * 






IEHMSG 




IEHINSEG 



IEHPSEG 



IEHPSEG 



IEHROOT 



IEHMSG 



IEHPSEG 



DEVNAMET 



c 



IEHROOT 



DEVMASKT 



— » 


IEHROOT 


IEHMSG 


IEHPSEG 



IEHROOT 



IEHQSEG, 
IEHRSEG, 



O000000© 



The root is load- 
ed. Subsequent 
loading is 
caused by 
branching fo a 
branch table in 
the root. 



A branch to a 
V-type address 
constant causes 
the overlay 
supervisor to 
load the message 
table (IEHMSG) 
and the 

auxiliary para- 
meter decoder 
(IEHINSEG). 



The request 
analyzer 
(IEHPSEG) is 
loaded as in@. 



specifies flow of control 



specifies a 
control section 
(CSECT) 







specifies a phase of 
main storage contents 



IEHROOT 



IEHMSG 







The control 


The device name 


The volume 


The 


message 


The appropriate 


The request 


statement scanner 


table 


mounter 


tab 


e an 


i the 


information 


analyzer 


(RDCDRT) is 


(DEVNAMET) 


(IEHVOLMT) 


request 




printing routine* 


overlays the 


loaded. Control 


overlays the 


and the device 


ana 


lyzer 




overlays the 


segment loaded 
in ©. The 


cycles between 


scanner by means 


mask table 


overlay 


all but 


request analyzer. 


the request 


of the Segwait 


(DEVMASKT) 


the 


root 






program 


analyzer and 


routine. 


overlay all 








* IEHQSEG 


terminates or a 


the scanner 




but the root. 








prints the 


new request is 


until all 












catalog 


analyzed, as 
in©. 


parameters are 












IEHRSEG 


analyzed. 












prints a 
VTOC 
IEHSSEG 
prints a PDS 
directory 





Figure 22. The Structural Flow of the IEHLIST Program 



PERRPR 

causes any invalid control statement 
to be printed, and gives control to 
PTERM or PBEGIN, depending on wheth- 
er there are any more control 
statements . 



The following areas are located in the 
root: 

CARDIN 

is the DCB for reading control 
statements. 



WORKERR 

treats all SYNAD exits. 



PTERM 

receives control when all job 
requests have been serviced or 
aborted, and ends the job. 



LINE PR 

prints all program output. 



DOPCINT 

issues all POINT supervisor calls 
used by the program. 

PBEGIN 

directs control to the segments by 
means of a branch table of V-type 
address constants. 



PRINTOUT 

is the DCB for printing the catalog, 
VTOC, or PDS. 

WORKIN 

is the DCB for reading the catalog, 
VTOC, or PDS directory. 

RONTAB 

is the parameter list for the volume 
mounting routine. 

IEHPSEG 

analyzes requests and directs control 
to the appropriate routine to print 
the requested information. It con- 
tains the following subroutines : 

PBEGIN 

directs control to IEHINSEG to 
interpret calling program parame- 
ters, and to open SYSIN and 
SYSPRINT. 
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PON 

directs control to RDCDRT to obtain 
control card information. 

PKEY 

is given control when a keyword is 
returned by RDCDRT. 

PPARAM 

is given control when a parameter is 
returned by RDCDRT. When the param- 
eter supplied to the (optional) VOL 
keyword is returned, the parameter 
is used as a search argument in the 
device name table. The value retri- 
eved is used by PWORKIN. 

PWORKIN 

constructs the calling sequence for 
IEHVOLMT. 

PHEAD 

prints a header and gives control to 
the appropriate routine to print 
catalog, VTOC, or PDS directory 
information. 

PTERM 

receives control following the 
printing of catalog, VTOC, or PDS 
directory information. If there is 
another request, PTERM directs con- 
trol to PON; otherwise, PTERM closes 
SYSIN and SYSPRINT, and returns con- 
trol to the supervisor. 

RDCDRT 

scans utility control statements. It 
is described under the heading "Con- 
trol Card Scanner." 

IEHINSEG 

interprets auxiliary parameters supp- 
lied by a calling program (these 
parameters are described under the 
heading "Auxiliary Parameters"), and 
also opens SYSIN and SYSPRINT or their 
substitutes, as specified in the cal- 
ling sequence to the program. 

IEHQSEG 

prints the catalog. It gains control 
indirectly from the request analyzer, 
IEHFSEG, by means of a branch to a 
branch table in the root. IEHQSEG 
contains the following routines : 

QCHECK1 

scans the catalog for general infor- 
mation and prints it. Actual print- 
ing is done via a branch-and-link to 
LINEPR in the root. 

QHEAD 

prints a catalog header after the 
general information is printed. 
Actual printing is done via a 
branch-and-link to LINEPR. 



CALL 

scans high-level node points in the 
catalog and passes them to QLOCATE. 
QALL is used only in the case of an 
entire catalog printout. 



QLOCATE 

scans from a node point to succes- 
sive index levels until a data set 
pointer is found. A fully qualified 
data set name is placed at location 
INDXNAME for routine LPRDATA. 



LPRDATA 

prints information pertinent to a 
data set. 

QCATREAD 

performs all the reading of a cata- 
log for the catalog function of the 
program . 

IEHRSEG 

prints a VTOC. Control is gained 
indirectly from IEHPSEG by means of a 
branch to a branch table in the root. 
IEHRSEG contains the following 
routines : 

RPARTIAL 

treats requests for partial VTOC 
printouts. Successive DSCBs are 
printed by linking to RPRDSCB. 

RENTIRE 

treats requests for entire VTOC 
printouts and differs from RPARTIAL 
in that the VTOC must be opened. 

REODAD 

calculates and prints volume space 
information for an entire VTOC 
printout. 

RPRDSCB 

prints a DSCB that has been read by 
RPARTIAL or RENTIRE. 

RREAD 

reads the VTOC. 

IEHSSEG 

prints PDS directories. Control is 
gained indirectly from IEHPSEG by 
means of a branch to a branch table in 
the root. IEHSSEG contains the fol- 
lowing routines : 

SSTART 

obtains the directory of a given 
PDS. 

SRESCAN 

prints the member names of the dire- 
ctory. Actual printing is done by 
linking to LINEPR. 
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Chart 11. IEHLIST - Listing System Control Data 



*************** 



->* INITIALI2 



**** 
RDCDRT 

***** b3 ********** 

* * 

* SCAM * 

* CONTROL * 

* STATEMENTS * 

* * 
***************** 



*****C3 ********** 

* * 

* ANALYZE * 

* * 

* PARAMETERS * 

* * 
***************** 



* MOUNT » 

* PROPER * 

* VOLUMES * 

* * 
***************** 



*****£ 2********** 



PARTIAL ENTIRE 
-*. OR 

*. PARTIAL 



* SCAN * 

* HIGH-LEVEL * 

* NODES * 

***************** 



* SCAN * 

* FROM A * 

* NODE * 

* * 
***************** 



* PRINT * 

* DATA SET * 

* INFORMATION * 

* * 
***************** 



LAST 
DATA SET 
. PRINTED 



* INFORMATION * 

* * 
***************** 



DIRECTORY * 

* 

**************** 



PARTIAL 

OR 
ENTIRE 



* OBTAIN * 

* A * 

* DSCB * 

***************** 



* EDIT AND * 

* PRINT * 

* DSCB * 

* * 
***************** 



LAST 
DSNAME 
PRINTED 



*****GK*+******** 



***************** 



* EDIT AfJD * 

* PRINT * 

* DSCB * 

* * 
***************** 



END 

OF 

VTOC 



* EDIT AND * 
->* PRINT MEMBER * 

* NAMES * 

* * 
***************** 



NO .* LAST *. 

*.PDS DIRECTORY.* 

*. PRIMTED .* 



**** 

* K3 * 

* * 
**** 



**+*Kl********* 

* RETURN TO * 

* SUPERVISOR * 

* * 
*************** 



* TERMINATE * 
-* THE *< 

* JOB * 

* * 
***************** 



t****KI| ********** 



*. ANOTHER .*< — ■,< *AND PRINT SPACE* 

*. REQUEST .* * INFORMATION * 

*. .* * * 

*. .* ***************** 

* YES **** 



* K3 * 

* * 
**** 
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Updating XCTL Tables for OPEN, 
CLOSE, and EOV (IEHIOSUP) 



The IEHIOSUP program updates the XCTL 
tables embedded within various load modules 
of the I/O support functions OPEN, CLOSE, 
and EOV. The program is executed as a 
result of job control statements in the job 
stream at the time of system generation. 
The program is not serially reusable. It 
consists of one load module, IEHIOSUP. 

The name of the load module for the 
first phase of each of the I/O support 
functions listed above is of the form 
IGCOOnnn, where nnn is the decimal SVC code 
for the data management function. The 
names of subsequent load modules are of the 
form IGGnnnxx, where nnn is the decimal SVC 
code for the data management function, and 
xx is a load module identifier. If the 
seventh character of the load module name 
is alphabetic, the load module contains no 
XCTL table. 

An XCTL table is always present in the 
first type of load module, but not always 
present in the second. If present, the 
table may be embedded anywhere within the 
load module (see Figure 23). The last byte 
of the load module is a relative pointer 
(in double words) to the table. 

IGCOOnnn 
or 

IGGnnnxx 

r 1 



j doubleword boundary 

^ T T . 

| ID | TTR | 

XCTL table j- + +- 

(variable j | j 

length ) ^ -j- -j-- 



00 



_ + + 

I I 

h j. x__. 

| ^-indicates end of table 



SVC 



-T H 

I p I 

~L J 



Each entry within an XCTL table consists 
of the identifier of a subsequent load 
module, the location of the load module 
(TTR) , and the length (in double words) of 
the load module. 



PROGRAM FLOW 

The flow of the IEHIOSUP program is shown 
in Chart 12. 



Finding the Load Module 

Load modules of the first type (IGCOOnnn) 
are updated first. If a load module of 
this type is not found, an appropriate mes- 
sage is printed and the program is aborted. 
Load modules of the second type are pro- 
cessed only after successful processing of 
the first type; during this processing, the 
program ends normally if either all load 
module XCTL tables are updated or the end 
of the directory is reached in searching 
for a load module entry. 

Entries for load modules are sought for 
in order of increasing binary value (in 
accordance with the organization of the 
directory) by reading a directory record 
and comparing the record key to the name of 
the desired load module. When the record 
key compares higher than or equal to the 
load module name, the entry is sought for 
(sequentially) in the record. If the load 
module is of the first type (IGCOOnnn) and 
no entry is found for it in the record, the 
program aborts. Load module names whose 
seventh character is alphabetic are 
ignored, since the load modules they name 
have no XCTL tables. 

When the entry for the load module is 
found in a directory record, the location 
(TTR) of the load module is extracted from 
the entry and converted to an absolute 
address (MBBCCHHR) . The conversion is 
effected via the execution of the program 
IECPCNVT, which is passed the 1TR to be 
converted and the address of the appropri- 
ate DEB. The address of the IECPCNVT pro- 
gram is found in the Communications Vector 
Table at absolute (decimal) location 44. 



ID = 2-byte entry identifier of a subse- 
quent load 

TTR = 3-byte relative track address of the 
subsequent load 

L = 1-byte length (double-words) of the 
subsequent load 

SVC = 3-byte decimal SVC number of support 
function 

P = 1-byte relative pointer (double- 
words) to XCTL table 

Figure 23. Embedded XCTL Table Format 



Updating the XCTL Table 

The absolute address of the load module 
desired is then used to read the load 
module into the buffer BUFFER. Reading of 
the load module is dene via the EXCP macro 
instruction; the channel program is at 
location CCWREAD, and the DCB is at loca- 
tion EXCPDCB. When the load module has 
been read into main storage, the address of 
its last byte is determined using the count 
field of the CCW and the residual count of 
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the CSW and is used to calculate the 
address of the beginning of the XCTL table 
within the load module. Up to 40 entry 
identifiers are then moved from the XCTL 
table and sorted in the area SORTAREA. If 
more than 40 entries are in the XCTL table, 
a switch (SWITCH + 1) is set. After the 
entry IDs are sorted, each is expanded to 
its full 8-byte form (i.e., IGGnnnxx) . The 
sorted, expanded IDs are then passed to the 
BLDL macro instruction, which returns in 
BLDLAREA the new entry values (TTR and 
length) for each ID. The values are then 
moved to XCTL table. Any remaining entry 
IDs in the table are sorted, expanded, and 



passed to BLDL, 40 at a time, and updated 
in the same manner. 



The entire load module containing the 
updated XCTL table is then written at its 
original location. If there are no more 
load modules to be processed, the SVCLIB 
data set is closed and the program ter- 
minates. Otherwise, control cycles as 
indicated in Chart 12 until all load 
modules are processed or an error condition 
is returned by BLDL or EXCP. Such an error 
condition results in abnormal termination 
of the program. 
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Chart 12. IEHIOSUP - Updating I/O Support XCTL Tables 



****A1 ********* 
* * 

► ENTRY * 

► 4 
*************** 



*****A2 ********** 

* * 

* * 
->* INITIALIZE *- 

* * 

* * 
***************** 



* READ A * 
>* DIRECTORY *< 

* RECORD * 

* * 
***************** 



. *RECORD KEY * 
.GREATER THAN 
*.FCN NAME .* 



. *CURR ENTRY 
. IN RECORD 
*.THE NAME . 



FOUND 

*****D3********** 

* IECPCNVT * 
*-*-*-*-*-*-*-*-* 

* CONVERT TTR * 

* IN ENTRY TO * 

* MBBCCHR * 
***************** 



MBBCCHHR 

**E3******* 

* EXCP * 

-*-*-*-*-*-*-*- 



*********** 



NEXTID 

*****F3**** ****** 

* MOVE * 

* APPROPRIATE * 

* XCTL TABLE * 

* ENTRY ID'S TO * 

* SORT AREA * 
***************** 



*****54*********» 

* 4 
k EXAMINE 1 

* NEXT ENTRY » 
» IN RECORD » 

* * 
***************** 



DIRECTORY *. 
RECORD 
.EXHAUSTED.* 



♦SORT AND EXPAND* 

* UP TO 40 ID'S * 
♦FROM XCTL TABLE* 

* * 
***************** 



GOTOBLDL V 

**H3****** 
* BLDL 



OBTAIN NEW 
TTR' S AND 
* LENGTH 
*********** 



♦PLUG NEW TTR'S * 
* AND LENGTHS * 
*INTO XCTL TABLE* 

***************** 



.*. 

c5 ♦. 

.* HAVE *. 

♦ TiiE 1ST 6 * . 

I/O MODULES . 

* . BEEN . * 

*.DONE .* 

*. . * 

* NO 



*****H4 ********** 

* INCREMENT TO * 

* NAME OF NEXT * 

* MODULE * 

* TO BE * 

* UPDATED * 
***************** 

A 



. * HAVE ALL *. 
. NAMES BEEN . 
♦.PROCESSED.* 



.* ARE * 
YES . ♦ ANY ID' S 

♦. LEFT IN 

♦. TABLE 



-+-*-*-*-*-*-*- 

->♦ WRITE OUT THE 

♦ UPDATED ♦ 

♦ MODULE ♦ 

*********** 



*****J5 *♦♦♦****** 

* * 

♦ CLOSE ♦ 
->* THE SVCLIB ♦ 

♦ DATA SET * 

* * 
***************** 



****K5* ******** 
» * 

* RETURN * 

* 4 
**♦♦♦♦♦♦******* 
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Initializing the SYS1.LOGREC Data 
Set (IFCDIPOO) 



The IFCDIPOO program is executed during 
system generation to initialize the SYS1. 
LOGREC data set (a data set used by systems 
environment recording modules to record 
CPU, channel, and I/O device errors). 

This program is executed as a result of 
job control statements provided by the GEN- 
ERATE macro instruction during the SYSGEN 
process . Input to the program (as speci- 
fied in the EXEC statement) consists of the 
(decimal) number 1 of unit control blocks 
(UCBs) in the system, and the system resi- 
dent device type code (for an explanation 
of the code, see "SYSl. LOGREC Record 
Format") . 

The output of this program at normal 
completion is of three types: 

• The initialized data set SYSl. LOGREC. 
(See the section "SYSl. LOGREC Record 
Format.") 

• Information to be used as parameters 
for executing the environment recording 
edit and print (EREP) program. 

• Information to be used for recording 
CPU, channel, and I/O device errors by 
the systems environment recording 
modules. 



PROGRAM FLOW 

Chart 13 shows the flow of the program, 
which consists of one load module (IFC- 
DIPOO). The data set SYSl. LOGREC to be 
written consists of three subsets: 

• A header record, written by this 
program. 

• A variable number of statistical data 
records (STAT/RECs), written by this 
program with data fields of zeros. 

• A record entry area beginning on the 
first track following the STAT/RECs, 
not written by this program. 

SYSl. LOGREC records are written using 
BSAM WRITE. Diagnostic messages are writ- 
ten using the WTO macro instruction. 

The program is executed in two passes: 
the first pass (see Figure 24) initializes 
the program, writes a dummy header record, 



and writes as many statistical data records 
as there are UCBs for the system; the 
second pass (see Figure 24) uses the data 
obtained in the first pass to write a 
genuine header record over the dummy, and 
then writes as many statistical data reco- 
rds (over and following those written dur- 
ing the first pass) as are necessary to 
fill out the track occupied by the last 
statistical data record written during the 
first pass. 



SYSl. LOGREC After First Pass of IFCDIPOO 



r t t 

j DUMMY | STAT, j 

| HEADER | REC. | 
L ± X 


STAT, j STAT. 
REC. | REC. 




| STAT. | STAT. | 
j REC. | REC. | 
L JL JL _ _ 






SYSl. LOGREC After Second 


Pass of IFCDIPOO 


r T ~ T T 

j GENUINE j REWRITTEN! REWRITTEN! REWRITTEN 
| HEADER | STAT . REC . | STAT . REC . j STAT . REC . 
L J. _ J. J. 




r T - T 

(REWRITTEN j REWRITTEN j 
j STAT . REC . j STAT . REC . | 
L J. JL 


T 

STAT, j STAT. 
REC. j REC. 




| UNWRITTEN 

| (RECORD ENTRY AREA) 

I _ 



Figure 24. 



First Pass 



SYSl. LOGREC After First and 
Second Passes of IFCDIPOO 



x This number is equal to the number of 
uniquely addressable I/O devices in the 
system. 



Program initialization consists of saving 
registers and analyzing the input from the 
EXEC statement. The dummy header is then 
initialized and written. The location (in 
TTR format) of the dummy header is saved 
for the second pass. The first pass sta- 
tistical data records are then written, 
each of which consists of a 2-byte key 
(ascending sequence) and a 3 8-byte data 
field of zeros. The location of the last 
statistical data record written during the 
first pass is saved for the second pass, 
where it will be used to compute informa- 
tion necessary to complete the genuine 
header record. The program then enters the 
second pass. 

Second Pass 

A switch (PASS) is set, indicating that the 
program has entered the second pass. This 
switch will be interrogated following the 
rewriting of the statistical data records 
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in this pass. First, however, data neces- 
sary to the genuine header record is com- 
puted. A description of the fields of the 
header record may be found under "SYS1. 
LOGREC Record Format." The values supplied 
to these fields are computed using the 
track number obtained by the NOTE routine 
following the writing of the last statist- 
ical data record written during the first 
pass. 

The genuine header is then written. 
Following this, the original statistical 
data records are rewritten. The switch 
PASS is interrogated, and indicates that 
the second pass has been entered. The 
track containing the last statistical data 
record is then padded with additional sta- 
tistical data records. SYS1. LOGREC is 
closed, and IFCD1P00 returns control to the 
supervisor. 



4. A seven-byte field containing the 
address and ID (BECCHHR) of the first 
track of the RE area. The ID is set 
to zero. 

5. A two-byte field containing the number 
of remaining bytes on the last RE 
track written. This field is initial- 
ly identical to field 6. 

6. A two-byte constant equal to the track 
byte capacity for the system resident 
device. 

7. A seven- byte field containing the 
address and ID (BBCCHHR) of the last 
track written in the RE area. This is 
initially identical to field 4. 

8. A two-byte field containing the number 
of UCBs in the system. 



SYS1. LOGREC RECORD FORMAT 



9. A two-byte field containing the number 
of tracks occupied by the SYS1. LOGREC 
data set. 



The SYS1. LOGREC data set consists of three 
subsets: 



10. A one-byte code for the type of system 
resident device: 



• A header record, written by this 
program. 

• A variable number of statistical data 
records (STAT/RECs) , written by this 
program and initialized to zero. 

• A record entry area (RE), not written 
by this program. 



Header Record 



DEVICE 
2311 
2301 
2302 



CODE 
X'Ol' 
X f 02* 
X*04 f 



11. A five- byte expansion field. 

12. A one-byte field of hexadecimal FF 
used to detect a previous overrun con- 
dition caused by a machine check or 
channel inboard failure while writing 
the header record. 



The header record is a 38-byte data field 
preceded by a 2-byte key of hexadecimal 
FFFF. The header record contains the fol- 
lowing fields: 

1. A four-byte field containing the 
address (CCHH) of the first track in 
the SYS1. LOGREC extent. 

2. A four-byte field containing the 
address (CCHH) of the last track in 
the SYS1. LOGREC extent. 

3. A one-byte constant containing the 
highest address of a track on a 
cylinder of the system resident 
device. 



Statistical Data Records 

This program writes each statistical data 
record with a 2-byte key field and a 38- 
byte data field of zeros. 



Record Entry Area 

This area begins on the first available 
track following the last track on which a 
statistical data record is written. Noth- 
ing is written in this area by this pro- 
gram. The address of this track is written 
by this program in field 4 of the header 
record. 



System Utility Programs: IFCDIP00 51 



Chart 13. IFCDIPOO - Initializing the SYS1.LOGREC Data. Set 



****A1 ********* 

* ENTRY * 

* * 
*************** 



***** 

* * 

* * 
->* INITIALIZE *- 

* * 

***************** 



*****A3* ********* 

* * 

* SET UP * 
>* DUMMY * 

* HEADER * 

* * 
***************** 



********** 



**C3******* 



*********** 



**D3******* 



POINT) 
fc * 

*********** 



*****-^^ ********** 

* * 

* SET UP 1ST * 

* STAT/REC * 

* KEY * 

* * 
***************** 



**F3******* 

* * 
WRITE 

A 
STAT/REC 

* * 
*********** 



. * ENOUGH * . NO 

*. STAT/REC S .* 

*. WRITTEN .* 



**H3******* 

* * 
MOTE 

(FOR HEADER 
DATA) 

* * 
*********** 



*****H4********** 

* * 

* GbT NUMBER OF * 

* ADDITIONAL * 

* STAT/REC S * 

* FROM TABLE * 
***************** 



POINT TO 

HEADER 

RECORD 

t * 

*********** 



. * * . . * ARE * . 

.* IS SECOND *. YES .* ADDITIONAL *. YES 

*. PASS FLAG .* >*. STAT/REC "S .* 

*. SET .* *. WRITTEN .* 



**J5******* 



*********** 



*****K2 ********** 

* * 

* GATHER DATA FOR* 
♦GENUINE HEADER *<- 

* RECORD * 

* * 
***************** 



*****K3* ********* 



***************** 



****K5 ********* 

► RETURN * 
» * 

*************** 
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Editing and Printing Environmental 
Records (IFCEREPO) 



The IFCEREPO ("EREP") program edits and 
prints records from the SYSl.LOGREC data 
set. (These records were originally writ- 
ten fcy systems environment recording pro- 
grams and provide the error environment of 
CPU, channel, and device errors.) EREP 
optionally saves certain SYS1.L0GREC error 
records on an accumulation (history) data 
set to provide comprehensive error statis- 
tics. The accumulation data set may then 
be used as input to EREP. Records from 
SYS1.L0GREC (except SDRs) or from an accu- 
mulation data set are printed in summarized 
form when the summary option is selected. 

EREP operates in the problem state and 
is serially reusable. It consists of the 
following machine- independent modules: 

• IFCEREPO and IFCEREPl (Charts 14-18), 
the control modules. 

• IFCMSGOO, the message module. 

• IFCSDROO (Chart 19), which edits sta- 
tistical data records (SDRs). 

• IFCOER00 (Chart 20), which edits I/O 
outboard records (OBRs) . 

• IFCCBRSM, which edits the outboard 
record summary. 

• IFCMCH00 (Charts 21 and 22) , which per- 
forms preliminary editing of channel 
inboard records and machine check 
records. 

Figure 25 illustrates the communication 
between modules of the EREP program. 
Figure 26 lists the machine-dependent 
modules of the EREP program. 



t LOAD r 1 

| H IFCEREPl j 

| | (Model j 
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> 
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| Process and Edit| 
j Modules j 

L . J 

Figure 25. Control Flow Between Modules 



All communication between record 
processing/editing modules and control 
modules is through IFCEREPO, the model- 
independent control module. This module 
then may communicate with IFCEKEP1 , which 
is model dependent, to handle summary/ 
process/edit requests. 



O verall Flow 

The control module first scans and analyzes 
parameters from the execute statement, and 
then performs basic initialization, such as 
loading the second control module and the 
message module. Module IFCEREPO also 
determines the input and output data sets 
to be used and opens their associated DCBs . 
When the parameters specify the summary 
option, the control module obtains via a 
GETMAIN macro instruction from 1.7 to 4K 
bytes of storage. (The size of obtained 
storage depends on the amount of free 
storage.) 

The record-processing path determined by 
the control module depends on whether the 
input data set is SYSl.LCGREC or an accumu- 
lation data set. When the input is an 
accumulation data set, program flow also 
depends on whether a record data summary is 
requested. (The control modules indicate 
program flow by setting bits or bit- 
combinations in four switch bytes.) 

SYSl.LCGREC Input 

When SYS1.LOGREC is the input data set, 
EREP processes all records of a type before 
processing another type. The program reads 
a record from SYS1.LOGREC and the appropri- 
ate editing module is given control by 
means of the Link routine. When all rec- 
ords of the selected type have been read 
and the appropriate ones edited and writ- 
ten, the options are checked to see if 
another type of record is to be processed; 
if so, all the records of this type are 
read and the appropriate ones edited and 
written. For record types other than SDR, 
optioned summary and accumulation functions 
are performed before EREP begins processing 
another record type. (Unlike other record 
types, OBRs are written into the accumula- 
tion data set in blocks of ten. Space for 
record blocking is reserved in the message 
module. ) 

When all records of the selected types 
have been processed, the SYSl.LOGREC header 
record is checked by the control module to 
see if any additional records were stored 
in SYSl.LOGREC while EREP was processing. 
If any were stored, the program enters a 
second pass and the additional records are 
edited and written regardless of the 
options selected. No summary of these rec- 
ords is performed. 
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Accumulation Input 



When an accumulation data set is the input, 
EREP minimizes the number of access cycles 
by processing more than one record type on 
a pass if a summary was not requested or if 
the maximum 4K bytes of storage for a 
requested summary was obtained from the 
GETMAIN routine. 



If the summary was requested or maximum 
storage was unavailable, the program first 



edits and prints OERs, if requested. Since 
available space may be insufficient for an 
OBR summary, more than one summary pass may 
be necessary- After OBR processing is com- 
plete, INB and machine check records are 
processed in a single pass each. 



Control Module Subroutines 

The control module and the editing modules 
make use of the following subroutines, 
located in the control module, to perform 
I/O operations: 



r 

j MACHINE 




MODULE ID 




MODLIB ID 
(***) 


"V 


FUNCTION 




i 


J.. 




-L- 


1 






r 

j Model 40 


T 


IFCMC140 
IFCMC340 
IFCSUM40 
IFCMCSUO 
IFCINS40 


T 


IFCEP4 00 
IFCEP401 
IFCEP104 
IFCEP041 
IFCEP072 


1 


Edits CPU records. 
Completes editing of CPU records. 
Summarizes CPU and inboard records. 
Edits the CPU records summary. 
Edits the inboard records summary. 




1- 

j Model 50 


— +" 


IFCMC150 


+- 


IFCEP500 


-+- 


Edits CPU records. 








IFCMC250 




IFCEP501 




Completes editing of CPU records and edits 














inboard records. 








IFCSUM50 




IFCEP105 




Summarizes CPU inboard records. 








IFCHCS50 




IFCEP051 




Edits the CPU records summary. 




L _ _ 




IFCINS50 


X. 


IFCEP052 


1 


Edits the inboard records summary. 




| Model 65/67 | 


IFCMC165 


T 


IFCEP650 


1 


Edits CPU records. 




| (*) 




IFCMC265 
IFCMC365 
IFCMC465 
IFCSUM65 
IFCMCS65 
IFCINS65 




IFCEP752 
IFCEP651 
IFCEP652 
IFCEP106 
IFCEP061 
IFCEP072 




Edits inboard records. 
Continues editing CPU records. 
Completes editing CPU records. 
Summarizes CPU and inboard records. 
Edits CPU records summary. 
Edits inboard records summary. 








IFCASR00(**) | 


IFCEP655 




Edits machine check handler portion 


of CPU 














records. 








IFCASROK**) | 


IFCEP656 




Edits channel check handler portion 


of inboard 


i . „ _ .„ . 


X. 




-L- 




1 


records. 




r 

j Model 75 

i 


T 
4.- 


IFCMC175 
IFCMC275 
IFCMC375 
IFCSUM75 
IFCMCS75 
IFCINS75 


T 
4.- 


IFCEP751 
IFCEP752 
IFCEP753 
IFCEP107 
IFCEP071 
IFCEP072 


1 

1 


Edits CPU records. 
Edits inboard records. 
Completes editing CPU records. 
Summarizes CPU and inboard records. 
Edits CPU records summary. 
Edits inboard records summary. 




I — 

j Model 91 


T 


IFCMC191 
IFCMC291 
IFCMC391 
IFCMC491 
IFCSUM91 
IFCMCS91 


T 


IFCEP950 
IFCEP952 
IFCEP951 
IFCEP953 
IFCEP109 
IFCEP091 


1 


Edits CPU records. 
Edits inboard records. 
Continues editing CPU records. 
Completes editing inboard records. 
Summarizes CPU and inboard records. 
Edits CPU records summary. 




L 


J.. 


IFCINS91 


J__ 


IFCEP072 


1 


Edits inboard records summary. 




r 

| (*) Except 


for 


modules IFCASR00 and IFCAS 


R01, all modules in this group have aliases of 


| IFCxxx67, where xxx represent the fourth, fifth, and sixth characters in the module 


j (**)These 


modules occur 


only 


in systems 


having the machine check handler and 


the chan- 


| nel check 


handler featur 


s. 








| (***)This 


is the module 


identification 


before it is link- edited onto the Link Library. 



Figure 26. EREP Machine-Dependent Modules 
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XWRTPRT 

writes edited data, using BSAM, on the 
specified output device. Records are 
written in 120-byte blocks from the 
buffer XPRTBUF, also ,in the control 
module. 

XRDDISK 

reads, using EXCP, a record from SYS1, 
LOGBEC into the buffer XDADBUF, also 
in the control module. 

XWRTDISK 

writes, using EXCP, a record of zeros 



on SYS1.L0GREC. The buffer XDADBUF is 
zeroed out by the editing module. If 
disk writing is prohibited, this rou- 
tine returns control immediately. 



XWRTOP 

writes, using WTO, messages to the 
operator. 



XACCSUM 

accumulates and summarizes records, if 
necessary. 
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Chart 14. IFCEREPO Initialization and Linkage to Editing Modules 



****A1********* 
» * 

» IFCEREPO * 
► * 

*************** 



*****B1 ********** 

* SCAN * 

* AND ANALYZE * 
*EXEC STATEMENT * 

* PARAMETERS * 

* * 
***************** 



**C1******* 

* * 
♦LOAD IFCMSGOO* 

► AND STORE * 
* ADDRESS * 

* * 
*********** 



♦LOAD IFCEREP1* 

► AND STORE * 

* ADDRESS * 

* * 

*********** 



.* IS *. YES 

.ACCUMULATION .♦ 

♦.REQUESTED.* 



**** 

* * 

* Bit * — , 

* * X 

**** V 

an' 



♦*E2******* 

* * 

* OPEN * 
->* ACCUMULATION * 

* OUTPUT DATA * 

* SET * 
*********** 



.♦SUMMARY OR *. 

PRINT 

♦.REQUESTED.* 



**F2******* 

* * 

* OPEN 

->♦ PRINT OUTPUT 

♦ DATA SET 

* * 
*********** 



**F3******+ 



*********** 



.* INPUT AN * 
♦ .ACCUMULATION 
♦.DATA SET .* 



♦•HI******* 

* * 
OPEN 

SYS1.LOGREC 
DATA SET 

* • 
*********** 



**J1******* 
* READ * 
SYS1.LOGREC ♦ 
HEADER * 
RECORD * 
v * 

*********** 



*****K1********** 

* DETERMINE * 

* IF HDR RECORD * 

* IS CORRECT — ♦ 

* IF NOT WRITE ♦ 

* TO OPERATOR ♦ 
***************** 



**G2*****^+ 

* * 

* OPEN 
->* ACCUMULATION 

* INPUT DATA 

* SET * 
*********** 



L... 



♦*H2******* 

* FREE IK * 
♦MAIN STORAGE ♦ 

* FOR LINK ♦< 

♦ MODULES ♦ 

* * 
*********** 

**** 



***** 
*15 * 
* B1* 



**J3******* 

* GET UK * 
♦MAIN STORAGE 

* FOR LINK 
* MODULES 

* * 
*********** 



**K3***+^ + 
♦GET 1.5K TO+ 
* IK MAIN * 

STORAGE FOR 

» SUMMARY * 

♦ COUNTERS ♦ 

*********** 



*****C5 ********** 

* * 

* SET 'SKIP ♦ 
->*OBR PROCESSING* ♦ 

* NOP ACTIVE ♦ 

* * 
***************** 



* WAS 

IK STORAGE 
♦.RECEIVED . 



» WAS 

4K STORAGE 
'.RECEIVED . 



. * CAN * . 

.*OBR AND INB*. 

*.BE PROCESSED .< 

♦.TOGETHER .* 



.*CAN INB*. 
.♦AND MCH CHK*. YESV 

•BE PROCESSED .♦ 

♦.TOGETHER .* 



*****G5********** 

* * 

* SET 'INB * 

* ONLY' NOP *- 

* ACTIVE * 

* * 
***************** 



*****H5********** 

* * 

* SET 'OBR * 
->* ONLY" NOP ♦ 

* ACTIVE ♦ 

* * 
***************** 



***** 
*16 * 
* Al* 



MACHINE 

CHECK 

.SPECIFIED. 



♦.BE PROCESSED 

♦.TOGETHER 



*****K5********** 

* * 

* SET 'INB ♦ 
>* ONLY' NOP ♦ 

* ACTIVE * 

* * 
***************** 



***** 
*16 * 
* Al* 
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Chart 15. EREP - Input From SYS1. LOGREC Data Set 



*18 * 
* Al* 
***** 



*18 * 
* Al* 
***** 



***** 

*** ♦ 
* *♦♦ 



.♦IS EDIT*. 
* AND PRINT * 

INDIV. RECS 
►.REQUESTED.* 



*****&2********** A3 *. 

* * .* ANY *. 

* SET PRINT * YES .* ENTRIES *. 

* SWITCH ON *< *IN SYS1. LOGREC. *<- 

♦SUMMARY SWITCH * 

* OFF * 
***************** 



.*ARE OBR*. 

RECORDS 

SELECTED 



*. DURING . 


*.EREP .* 


* . .* 


* 


**** 




B3 * — ■> 
**** V 


.*. 


B3 *. 


.*ARE INB*. 


. * RECORDS 


. SELECTED 



*****&!) ********** 

* * 

* SET * 
-* FIRST PASS *< 

* SWITCH ON * 

* * 
***************** 



<-* A5 * 
NO**** 



*15 * 
* B2* 
***** 



**D1******* 

* READ * 
SDR RECORD 

FROM 
SYS1.LOGREC 

* * 
*********** 



*****E1********** 
♦IFCSDROO * 
*-*-*-*-•-*-*-*-* 

* SELECT. EDIT ♦- 

* AND PRINT * 

* SDR RECORDS * 
***************** 



*****C2********** 

* DETERMINE * 

* START OF * 

* RECORD ENTRY * 

* AREA IN * 

* SYS1 . LOGREC * 
***************** 

**** 



.* ANY *. 
.♦MORE RECORD*. 
N . ENTRIES 



**E2******* 

* * 
♦READ A RECORD* 

* FROM * 
* SYS1. LOGREC * 

* * 
*********** 



*****C3 ********** 

* DETERMINE * 

* START OF * 

* RECORD ENTRY * 

* AREA IN * 

* SYS1. LOGREC * 
***************** 



**** 



.* ANY *. 

. * MORE * . 
♦RECORD ENTRIES. 











F2 


* 


***< 








* IS 


IT 




* 


NO 


♦ 


AN 


)BK 


rw 


*<- 


* 




RECORD 




* 




* 






**** 








*. 





♦♦E3******* 

♦ ♦ 
♦READ A RECORD* 

* FROM * 
♦ SYS1. LOGREC ♦ 

♦ ♦ 
♦**♦♦♦♦♦♦♦♦ 



* IS IT 
AN INB 
RECORD 



**** 

* * *- 

* D2 ♦< ♦ 

* * * 
**** 



***************** 



.* WERE *. 
.* ANY OBR ♦. NO 
RECORDS . ♦ — > 
♦.PROCESSED.* 



*****K].*********4 
♦IFCOBRSM * 

*-*-*-*-*-*-*-*-* 

* EDIT SUMMARY *- 
♦OF OBR RECORDS ♦ 

♦ * 
****•*•*♦♦**♦♦♦♦♦ 



♦ 


*****G3 ********** 


♦ 


♦IFCMCHOO ♦ 


♦ 


*-*-*-*-*-*-*-*-* 


♦ 


* START * 


♦ 


* PROCESSING * 


♦ 


* RECORD * 


* 


***********♦♦♦♦** 




**** 






*♦♦ ♦ 






* ** *_> 












**** tf" 








H3 ♦. 


**** 


.* IS *. 


* 


NO .* MORE *. 


D3 ♦<- 


*. EDITING .* 


♦ 


* . NEEDED . * 


♦ ♦♦♦ 


*. 


.* 



*****J3********** 

* * 

* LINK TO * 

* NECESSARY ♦- 

* MODULE * 

* * 
*•***♦♦♦***♦***** 



.* WERE *. 

ANY INB *. NO 
RECORDS . * 

.PROCESSED.* 



*****£!)********* 4 

♦IFCINBSM * 
*-*-*-*-*_*-*-*-* 
♦EDIT AND PRINT ♦- 
♦ SUMMARY OF ♦ 
INB RECORDS 



. ♦ ARE * 
MCH CHK 
RECORDS 

. SELECTED 



*****C5********** 

* DETERMISK * 

* START OF * 

* RECORD ENTRY * 

* AREA IN * 

* SYS1. LOGREC * 
*♦♦*****♦*******♦ 



***************** 



.* ANY *. 
} .* MORE *. 
-♦RECORD ENTRIES. 



♦*E5******* 

* * 

* READ A 

* RECORD FROM 

* SYS1. LOGREC 

* * 
*********** 



*-*-*-*- 



-♦-*-*-* 



. * ANY * . 
. * MCH CHK *. NO 
RECORDS . * — 
♦.PROCESSED.* 



*****J4********** 

♦ IFCMCHSM * 
♦EDIT AND PRINT ♦ 

♦ SUMMARY OF ♦ 

♦ MCH RECORDS * 

♦ ♦ 
***************** 



* START 


* PROCESSING 


* RECORD 


************* 


**** 




*** * 




* ** *_> 




* * 




♦ *** 1 


.♦. 


H5 *. 


.* IS * 


.* MORE 


* . EDITING 


♦ . NEE 


JED 



*****J5********** 

* * 

* LINK TO * 
-* NECESSARY * 

* MODULE * 

* * 
**********♦♦♦♦♦♦♦ 



♦ *** 

♦ * 

♦ A5 * 

♦ * 
♦*** 
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Chart 16. EREP - Input From Accumulation Data Set 



***** 

*16 ♦ 
* Al* 



**A1******* 

* READ A * 

* RECORD FROM * 
ACCUMULATION * 

♦ DATA SET * 

* * 
*********** 



END 

OF 

DATA 



***** 
*17 * 
* Bl* 



*****C2 ********** 

* SET * 

* FIRST READ * 



***************** 



. *RECORD READ* 
. CORRECT ID 
*. RECORD .* 



**D3******* 

* WRITE TO * 
« OPERATOR- 
INCORRECT 

* INPUT 

* * 
*********** 



**** 

*18 * 

->* Al * 



*-*-*-*-*.*- 



***************** 



IS THIS 
RECORD 
MCH CHK 



NO 



IS *. 


**** 


MORE *. NO 


* * 


EDITING .* 


->* Al * 


NEEDED . * 


* * 


. * 


**♦* 


* . .* 




* YES 





*****K3********** 



* MODULE * 

* * 
***************** 



**** 

* * 
->* Al * 

* 4 
**** 



->* Al * 

* 4 

**** 
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Chart 17. EREP - Accumulation Input - End of Data 



***** 

♦ 17 * 

* Bl* 



***** 
♦18 * 
* Al* 



.* 'INB *. 
.* ONLY" 
*. SOP ACTIVE 



.* IS OBR 
SUMMARY 
*. EDITED 



IS ObR 

SUMMARY 

EDITED 



.* 'SKIP *. 
YES .* OBR' * 
< *. NOP ACTIVE 



*****D2* ********* 

* IFCOBRSM * 
*-*-*-*-*-*-*-*-* 
♦EDIT AND PRINT *<- 

* SUMMARY OF * 

* OBR RECORDS * 
***************** 



.* WERE *. 
.* ANY OBR 
RECORDS 
♦.PROCESSED. 



*****C1 ********** 

* IFCOBRSM * 
*-*-*-*-*-*-*-*-* 
♦EDIT AND PRINT *<- 

* SUMMARY OF * 

* OBR RECORDS * 
***************** 



. * WERE * . 

ANY OBR *. 

RECORDS 
.PROCESSED.* 



.INB SELECTED .* 



*****P2** ******** 

* IFCINBSM * 
*-*-*-*-*-*-*-*-* 
♦EDIT AND PRINT *<- 

* SUMMARY OF * 

* INB RECORDS * 
***************** 



YES .* WERE *. 

*. ANY OBR 

*. RECORDS .♦ 



IS INB 

SUMMARY 

EDITED 



*****F4 ********** 

* IFCINBSM ♦ 
*-*-*-*-*-*-*-*-* 
*EDIT AND PRINT *< 

* SUMMARY OF * 

* INB RECORDS * 
***************** 



.* WERE *. 
. * ANY INB 
RECORDS 
♦.PROCESSED. 



♦ ANY ♦ 

OBR RECORDS 
♦. PROCESSED. ♦ 



*****G2********** 

* IFCOBRSM * 
+-*-*-*-*-*-*-*-* 

->*EDIT AND PRINT * 

* SUMMARY OF * 

* OBR RECORDS * 
***************** 



"v 

***** 



.*. 

HI *. 
.* *. 
* INB OR *. NO 


♦.REQUESTED.* 

" *. .*" 
* YES 


V 

***** 
♦18 * 
♦ Al* 



*****H3 ********** 

* SET "SKIP * 

* OBR' NOP * 

* ACTIVE SET * 

* "SKIP INB' * 

* NOP ACTIVE * 
***************** 



*****J1** ******** 

* 

* 

NOP * 



SET 
'SKIP OBR' 
ACTIVE 



***************** 



.♦CAN INB*. 
.*AND MCH CHK*. NO 

♦.BE PROCESSED .♦ 

♦.TOGETHER 



.* WERE *. 

. *ANY MCH CHK*. 

RECORDS 

*. PROCESSED. ♦ 



*****J5 ********** 

* IFCMCHSK * 
*-*-*-*-*-*-*-*-* 

-♦EDIT AND PRINT * 

* SUMMARY OF * 

* MCH CHK KCDS * 
***************** 



»****K2 ********** 

* * 

* SET "INB * 

* ONLY* NOP *- 
ACTIVE 



K3 *. 

.* *. 

.* IS * 

->*.I«B SELECTED 



1 




* 
****** 


***** 


* 
****** 


* 


+ . 


. * 

.♦ 

YES 


♦ 
♦ ♦♦ 


********** 


* 
♦ *** 












-U 











*****K4********** **&$******* 

♦CLS(TYP£=T)^ 
SET * V * INPUT DATA * 

SKIP IN3' WOP * >* SiiT TO REPOS. * 

ACTIVE * A *VOL TO START * 

♦OF DATA SET* 
*********** 



***** 
*16 * 
* Al* 
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Chart 18. EREP Termination 



***** 

*18 * 

* Al* 

* * 



Al *. 

. * IS * . 

.* INPUT AN *. 

♦.ACCUMULATION . 

♦.DATA SET .♦ 



**A2******* 

* CLOSE ♦ 
♦ACCUMULATION ♦ 

" INPUT * 
♦ DATA SET ♦ 

* * 
*********** 



**B1******* 

* * 

CLOSE 

SYS1.LOGREC 

DATA SET 

t * 

*********** 



*." ACCUMULATION '. 
♦. REQUESTED. ♦ 



♦♦C2++++**+ 

* CLOSE ♦ 
♦ACCUMULATION ♦ 

* OUTPUT * 
♦ DATA SET ♦ 

* * 
*********** 



Dl ♦. 
.♦ EDIT ♦. 
* AND PRINT ♦. YES 

AND SUMMARY .♦ 

♦ . RQSTD . ♦ 

♦ . .♦ 

♦. . ♦ 



**D2******* 



*********** 



****E1 ********* 

► RETURN TO * 

► SUPERVISOR * 
^ * 

*************** 
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Chart 19. IFCSDROO - Editing SDRs 



***** 

*19 * 

* Al* 

* * 



♦SAVE REGISTERS 
* * 

* * 

*********** 



*****B1 ********** 
*COM. NO. OF ENT* 

* IN DEVC TYPE * 

* TBL COM. KEY * 

* FOR LAST * 

* STAT/REC * 
***************** 



CONVRT 

*****C1********** 
*PR.STAT. EDITOR* 

* HDR. IF CUA * 

* OPTN WAS SELEC. * 

* CONV CUA'S TO * 

* PAC.HEX * 
***************** 



.♦WAS DEVICE * 
. TYPE OPTION 
♦.SELECTED .* 



**♦* 

* * 

* K2 * 

* * 
**** 



ENTRY1 

*****£!********* 

* SEARCH 

* DEVICE TYPE 

* TABLE FOR 

* DEVICE TYPE 

* CODE 
**************** 



*****G1********** 



MESSAGE * 

* 

************* 



*****H1 ***♦**♦*♦* 



DEVICE TYPE * 
♦ * 

***************** 



WAS CUA 

OPTION 

-SELECTED 



*****B2 ********** 



***************** 



C2 *. 

.♦IS KEY ♦. 

.♦ OF RECORD 

. EQUAL TO 

* . EXPECTED . 

♦.VALUE.* 



.♦ EXPECTED * 

->*.KEY EQUAL TO 

♦.LAST KEY .♦ 



*. 



* YES 



*****q2 ********** 

* * 

* UPDATE ♦ 

* EXPECTED KEY ♦- 

* VALUE ♦ 

* ♦ 
***************** 



.* KEY OF * 
->*. RECORD EQUAL 
*. TO LAST .* 
♦. KEY .♦ 



*****Q1)********** 

* * 

* SET ♦ 
>♦ LAST RECORD ♦ 

* SWITCH ♦ 

* * 
***************** 



*****E3* ********* 

* MOVE * 

* STATISTICAL * 
♦DATA RECORD TO ♦ 

* EDITING AREA ♦ 

* * 
***************** 



. *WAS CUA* . , 
* ON DEVICE *. 

TYPE OPTION . 
♦.SELECTED .* 



♦< *. 



ANY 
DATA IN 
RECORD 



.* WAS CUA 
OPTION 
* . SELECTED 



H2 *. 

.* DOES *. 

.CUA OF RECORD. 

.EQUAL EITHER . * 

♦. OF REQ .♦ 

♦.CUA'S.* 

*. .* 

* YES 



.*WAS DEVICE *. NO 

». TYPE OPTION . * 

♦.SELECTED .♦ 



.♦DOES DEVICE*. NO 

♦TYPE OF RECORD. ♦ 

EQUAL THAT OF 
♦. REQ .♦ 



♦*J2*^+**** 
* PRINT * 

* STAT REG * 

♦ SOURCE, TYPE, ♦- 

♦ CUA.DEVICE ♦ 



.♦ HAVE ♦. 
ANY STAT 
RECS BEEN 

. EDITED . 



* PRINT ALL ♦ 
>♦ COUNTERS IN ♦ 

* DECIMAL * 

* 4 
***************** 



**K3******* 

* * 

* PRINT * 
->♦ MESSAGE, NONE 

♦ EDITED ♦ 

* * 
*********** 



*****J1| ********** 

* ZERO OUT * 

* STATISTICAL * 
->*DATA RECORD AND*- 

♦RESTORE PROPER * 

* KEY * 
***************** 



*****Kt******* 

* 4 
* 

>* RETURN SVC 
* 

* * 
************** 



*****J5 ********** 

* WRITE ♦ 

* RCD BACK IN ♦ 
->♦ SAME AREA OF ♦ 

* SYS1.LOGREC * 

* ♦ 
***************** 



B2* RETURN TO 
* * CONTROL 
* MODULE 
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Chart 20. IFCOBR00 - Editing OBRs 



♦SAVE REGISTERS * 

* * 

* * 

*********** 



-♦.INITIAL ENTRY. ♦ 



**C1******* 

* * 

♦ PRINT ♦ 
♦OUTBOARD EDITORS 

♦ HEADING ♦ 

* * 
*********** 



ENT V 

*****D1********** 

♦ COMPUTE ♦ 

♦ NUMBER OF ♦ 

♦ ENTRIES IN ♦ 

♦ DEVICE TYPE ♦ 

♦ TABLE ♦ 
***************** 



NO .♦ WAS DATE 

— ♦. OPTION 

♦.SELECTED 



COiSVRT i' 

*****fl ********** 

♦CONVERT EBCDIC ♦ 

♦ DATES ♦ 

♦ (LOW-HIGH) TO ♦ 
♦HEX, SAVE, PRINT ♦ 



. + WAS CUA 
OPTION 
♦ .SELECTED 



*****H1 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 
♦CONVERT EBCDIC ♦ 

♦ CUA'S TO ♦- 
♦HEX, SAVE, PRINT ♦ 



.♦WAS DEVICE * 
. TYPE OPTION 
♦.SELECTED .♦ 



ENTRY1 

*****A3********** 

♦ search ♦ 

♦ device type * 
>♦ table for ♦ 

♦ device type ♦ 

♦ CODE * 
***************** 



**BU******* 



♦ DEVICE TYPE ♦ 

* * 

*********** 



♦ PRINT MESSAGE ♦ 

* * 
***************** 



. ♦ WAS CUA 
OPTION 
♦ . SELECTED 



**** 
NO ♦ * 

* >* J5 * 

* * 
♦ ♦♦♦ 



D3 *. 
.♦ DOES ♦. *♦♦♦ 

.♦ RECORD ♦.NO ♦ ♦ 

♦ .CONTAIN LABEL. ♦ >* J5 ♦ 

♦.OF "SER 1 .♦ ♦ ♦ 
*„ .* *♦♦♦ 

♦ . .♦ 
♦ YES 



♦ NO . * WAS DATE 
♦< ♦ . OPTION 

♦ +. SELECTED 



♦ SUMMARY ♦ 

♦ AND ♦ 
♦ACCUMULATION IF+<- 

♦ NEEDED ♦ 

* * 
*********** 



INDIV. 

RECORDS 

.REQUESTED. 



**H2******* 

♦ PRINT ♦ 
♦OUTBOARD RCD ♦ 

*HDGS MODEL. SOUR+ 
♦CE, TYPE, CUA, ♦ 

♦ DEVICE * 
♦*♦*******♦ 



**J2******* 

♦ PRINT THE ♦ 

♦ REMAINING ♦ 
FIELDS OF THE 

♦ OUTBOARD ♦ 



.♦ IS ♦. 


**♦* 


.♦ DATE OF ♦. NO 


* 


♦.RECORD WITHIN. ♦ 


->♦ J5 


♦ . LIMITS .♦ 


* 


♦ . . ♦ 


*♦** 


♦ . .♦ 




* YES 




**** 1 




* * 




♦ G3 ♦-> 




* * 1 




♦ ♦** V 




OBRCK .♦. 





♦ *** 

♦ * 

♦ F2 ♦ 

♦ * 

♦ *♦* 



.♦WAS CUA^. 
.♦ OR DEVICE ♦. YES 

. TYPE OPTION .♦ 

♦.SELECTED .* 



. ♦ WAS CUA 
OPTION 
♦ . SELECTED 



->+.EgUAL EITHER . 
♦.CUA'S REQ.+ 



.♦WAS DEVICE ♦ 

. TYPE OPTION 

♦ .SELECTED .« 



**** 
->♦ J5 ♦ 



***************** 



.♦DOES RECORDS. YES 


* * 




->♦. DEVICE TYPE .♦ 


->♦ F2 * 




EQUAL THAT REQ 


* * 




♦ . .* 


**** 


**** 


♦ . . ♦ 




* * 


♦ NO 




♦ Ji ♦ 


1 ***♦ 






* * 




♦ ♦** 


'->♦ J5 ♦ 




1 


* * 






♦ ♦** 


FINISH 


1 


**jtl******* 


**J5******* 


♦ WRITE THE + 


* 


♦ 


♦ RECORD BACK ♦ 


* 




->+IN SAME AREA OF^ 


>♦ RETURN SVC 


♦ SYS1.LOGREC ♦ 


♦ 




* * 


♦ 


♦ 


*********** 


*********** 




RETURN 


TOI 




CONTROL 1 ♦♦♦♦ 




foODULE, 


1 *15 
1 ->*D2 
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Chart 21. IFCMCHOO - Editing Inboard and CPU Records (Part 1 of 2) 



. * INDIVIDUAL 
RECORDS 
♦.REQUESTED. 



*********** 



ENTRYO 

*****q2 ********** 

* PRINT * 

* APPROPRIATE * 

* HEADER * 
♦INBOARD OR CPU * 

* * 
***************** 



BFOUTO 


. *. 




C4 *. 




* IS 


YES .* 


RECORD 


*• . 


COMPLETE 



**D4******* 

* PRI^T * 

* MESSAGE * 

4 

♦ NOT COMPLETE * 

* * 
*********** 



. * WAS * 

DATE 

OPTION 

. SELECTED 



*****F2 ********** 
♦CONVERT EBCDIC * 

* DATES (LOW-HI) * 

* TO HEX, SAVE. * 

* PRINT MESSAGE * 

* * 
***************** 



DATE OF 
RECORD 
BETWEEN 
♦LIMITS.* 



.* DOES ♦. 
. ♦ RECORD ♦ 
♦. CONTAIN SER 
♦ . LABEL . ♦ 



**J2******* 

♦SUMMARY AND^ 

♦ACCUMULATION ♦ 

* IF NEEDED ♦ 



*********** 



SERC 

*****j>H ******** t 

♦ PRINT CPU 

* KCD HEADING- 
♦MODELi SOURCE, 



TYPE 



SERI 

*****j-'5#* ******** 

♦ PRINT INBOARD * 

* RCD HEADING- * 
♦MODEL, SOUkCE, ♦ 



TYPE 



***************** 



**G4******* 

♦ PRINT ♦ 
• KlOG ID, DATE, ♦ 

* TIME, CHANNEL * 
♦CONFIG, ACTIVE^ 

* I/O ♦ 
♦♦♦*♦♦♦♦♦♦♦ 



****♦♦♦♦♦♦♦*♦♦♦ 



**G5****+** 

♦ PRINT * 
♦PROG ID. DATE," 

* TIKE, CCW, 
* CSW Tli-iE * 

♦ CCW, CSW * 
♦♦♦♦♦**♦*** 



**** 

* * 

* BU ♦ 

* ♦ 
♦ ♦♦♦ 
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Chart 22. IFCMCHOO - Editing Inboard and CPU Records (Part 2 of 2) 



***** 

♦ 22 * 

* Bl* 



* WAS * 
RECORD 
EDITING 
STARTED 



INCLUDES MODULES IFChCHOl ftaD IFCMCH03 



THIS A 
CPU TYPE 
. RECORD 



.♦CHANEL CTRL*. 

*. OR CHANNEL . 

*. I/F BIT .* 



**E2******* 

* PRINT * 

* MESSAGE- 

* NO CHANNEL 

* LOG 

* * 
*********** 

**** 



**** 

*****P2 ********** 

* * 

* ZERO OUT * 

* RECORD * 

* AREA * 

* * 
***************** 



**Q2******* 

* REWRITE * 
RCD IN SAME 
SYS1 . LOGREC 

AREA IF 

* NEEDED * 
*********** 



*****t,2 ********** 

* INDICATE * 

* EDIT OF * 

* THIS RCD * 

* ENDED * 

* * 
***************** 



THIS A 

CCH 
RECORD 



*****P3 ********** 

* PRINT * 

* ERPIB * 

* (CCH) * 

* ANALYSIS * 

* * 
***************** 



*****H3 ********** 
*SET UP TO CALL * 

* NEXT EDIT * 

* MODULE FOR * 

* CHANNEL LOG * 

* (IFCKCH02) * 
***************** 



* RECORD 

FROM MODEL 
*. 30 OR MO . 



*-*-*-*-*-*- 



***************** 



* COMPLETE * 

* MCh. CHECK * 

* EDIT 6 PRINT * 
***************** 



* EDIT S PRIiMT * 

* MACri. RCD * 

* SUMMARY * 
***************** 



OPTION 

BEING 

.PROCESSED. 



*********** 



***** 

♦ IS * 

* H3* 



**J5******* 



********* 



***** 
*lb * 

* H5* 
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Loading the 2821 Generator Storage 
(IEHUCSLD) 



The IEHUCSLD program reads records that 
contain user-specified character images, 
requests the operator to change the print 
chain or train, loads the images into 2821 
generator storage, and prints the images so 
that the operator can verify the operation. 
Options allow the user to specify folding 
or non- folding mode, permit him to use non- 
standard ddnames and to bypass the verifi- 
cation procedure. 

The IEHUCSLD program may be executed as 
an independent job step or it may be 
entered via the LINK or ATTACH macro 
instruction. In either case the user may 
specify alternate ddnames and bypass veri- 
fication procedures. Program flow is shown 
in Chart 23. 



PROGRAM FLOW 

When IEHUCSLD is given control it examines 
the parameter list to determine which (if 
any) option has been specified. If no 
option has been specified it assumes the 
VERIFY option. 

The next step is to determine whether an 
alternate ddanme is specified for either 
the input or printer data set. If an 
alternate name is specified, IEHUCSLD moves 
the specified name to the DCB; otherwise it 
moves the standard names. 

The program then initializes the printer 
DCB for use with the EXCP macro instruc- 
tion, and opens the input and printer DCBs. 
It checks to see that both DCBs are proper- 
ly open, then inspects the printer UCE to 
insure that the universal character set 
feature is available. 

If either DCB is not properly open, or 
if the universal character set feature is 
not available on the requested printer, the 
ddname specification (or other information 
in the DD statement) is incorrect. In 
either case, IEHUCSLD closes both DCBs and 
returns with a return code of 8. 

If both DCBs are properly open and the 
universal character set feature is avail- 
able, the IEHUCSLD program copies the 
printer unit name from the UCB into the 
operator message and print line texts, and 
prepares to read the four control records. 

IEHUCSLD uses the Read routine four 
times to bring the control records into 
main storage. When the first record has 
been read, there is some initial processing 
done before the normal processing takes 
place. 



The initial processing includes a check 
for an asterisk in position 1 and a com- 
parison of the two type ID fields. The 
type ID is then copied into the operator 
message and print line texts, the mode 
option field is inspected, and the printer 
CCW is initialized (to folding or non- 
folding mode) accordingly. 



The normal processing is done for all 
four records. The images field is moved to 
an internal buffer, the record is sequence 
checked and its format is verified. Then, 
unless four records have been read, a 
branch is executed to the expansion of the 
READ macro instruction. 

If it finds an error in a control rec- 
ord, IEHUCSLD uses the WTO macro instruc- 
tion to issue message IEH50 3I, the control 
card error message. It closes the DCBs, 
loads return code 8, and returns. 

When IEHUCSLD has processed all four 
records, it closes the input DCB and checks 
for the LOADONLY option. If the LOADONLY 
option is specified, the program branches 
to the EXCP macro expansion; otherwise it 
requests the operator to change the print 
chain or train. It issues message IEH500A 
and waits for the operator to reply with 
the type ID or 'SKIP'. 

If the operator replies 'SKIP', the 
IEHUCSLD program issues the no action mes- 
sage, IEH506I, closes the printer DCB and 
returns with code 0. 

If the reply specifies the type ID 
requested, IEHUCSLD uses the EXCP macro 
instruction to load the character images 
into 2821 generator storage, and waits for 
completion of the channel program. 

When completion of the channel program 
is posted in the ECB, the IEHUCSLD program 
inspects the completion code bits to deter- 
mine whether a permanent error has occur ed. 
If so, and the error is a parity error, 
IEHUCSLD closes and reopens the printer DCB 
and retries the channel program. 

If the error is a permanent error, but 
not a parity error, the program closes the 
printer DCB and returns with code 12. 

If the error is not a permanent error, 
but completion is not normal, or if the 
retry fails, IEHUCSLD closes the printer 
DCB and returns with code 12. 

If the channel program is successfully 
completed, the IEHUCSLD program closes the 
printer DCB and checks for the LOADONLY or 
NOVERIFY option. If either option is spe- 
cified, the program writes message IEH502I 
to the operator to tell him that the images 
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have been loaded, issues return code and 
returns. 

If neither the LOADCNLY or NOVERIFY 
option is specified, IEHUCSLD opens the 
printer DCB for BSAM. It skips the printer 
to the next page and prints a header line 
that specifies the unit, type ID, and mode 
(folding or non-folding). Then IEHUCSLD 
spaces two lines and prints two 120 
character lines to display the images it 
has loaded into the 2821 generator storage. 

If the header line requires images that 
were not supplied by the user, and the 
reset block data check mode is specified in 
the printer DD statement, the IEHUCSLD pro- 
gram does not space two lines after the 
header. If the user does not specify reset 
block data check mode in his printer DD 



statement, the space will occur; in either 
case the images that were not supplied will 
print as blanks. 



When the three lines have been printed, 
IEHUCSLD skips the printer to the next page 
and tells the operator to check the images, 
using message IEH501A. 

The operator must reply, 'OK' or ' NG*. 
If the reply is ' NG' the images are printed 
once more, and the operator is again 
requested to check the images. A second 
'NG' reply causes the program to close the 
printer DCB and return with code 4. 

If the reply is , OK , f IEHUCSLD closes 
the printer DCB, loads return code 0, and 
returns. 
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Chart 23. IEHUCSLD - Loading the 2821 Generator Storage 



****A1********* 

♦ ENTRY FROM * 

♦ SCHEDULER * 

♦ OR CALLER * 
*************** 



*****B1 ********** 

* * 

* ANALYZE PARAM * 
♦AND SET OPTION * 

* SWITCHES * 



► MOVE * 

* DD NAMES TO * 

* DCB'S * 

* * 
***************** 



**D1******* 

* * 
OPEN INPUT 
AND PRINTER 

DCB'S 

* * 
*********** 



**** 






* 


*** 


* * 






* * 


* B2 * 






* B3 * 


* * 






* * 


**** 

J 






**** 
1 


V 
. *. 

B2 *. 






1 
**B3******* 


.♦ * . 






* * 


.* *. 


YES 




* * 


. LOADONLY . * ■, 




* CLOSE PRINTER 


♦ . OPTION .* 






* DCB * 


*. . ♦ 


1 




* * 


* . .* 


V 




*********** 


* NO 


**** 










* 












* E2 


* 










* 


* 










**** 






V 




MCHERR 




**C2******* 






V 


* * 






****C3********* 


* WTOR * 






* RETURN 


IEH500A CHANGE * 




* WITH CODE 12 


* CHAIN * 






* 


* * 






*************** 


***** 


***** 











.* BOTH OPEN *. NO 

►. AND UCS .* 

♦.AVAILABLE.* 



. ♦ REPLY ♦ 
.SPECIFIED ID 
♦.OR 'SKIP'.^ 



**** 

* * 

* E2 *-> 



**** 
fcSSGl 

* * 

♦ EXCP TO ♦ 
♦LOAD GENERATOR 

♦ STORAGE ♦ 



*********** 



**** 

* * 

♦ J2 ♦ 



READ INPUT 

* 
*********** 



♦ WTO ♦ 

* ILH506I NO » 

♦ACTION TAKEN ♦ 

* * 

*********** 



****F3 ********* 

* ENTRY FROM ♦ 

* SYNAD ROUTINE ♦ 

* * 
*************** 



* IMAGES TO ♦ r - 

* OUTPUT AREA * 

* * I 
***************** v 



**G3******* 



*********** 



**** 

* * 

* B3 ♦ 

* * 
**** 



HI ♦. ** H2 ******* 

.* ♦. ♦ WTO ♦ 

.♦ INPUT ♦.NO ♦ IEH503I 

♦ .RECORD FORMAT. ♦ >♦ CONTROL CARD 

♦ . "OK" .♦ * ERROR 

*. .* * * 

*. .* *********** 

* YES 

**** 

* 4 

* J2 ♦-> 

* * 
**** 

**J2* + * + "* 



**** 

* * 

* BS ♦ 

* * 
**** 



* * 

* WTO ♦ 
♦IEH502I IMAGES 

♦ LOADED * 

♦ * 
*********** 



***************** 



* LOADONLY ♦ 

OR NOVERIFY 
♦. OPTION .* 



**£5******* 

* * 
OPEN 

PRINTER DCB 
(BSAK) 

* * 
*********** 



E5 *-> 
**** 



♦WRITE HEADER 
► LINE AND TWO 
♦ IMAGE LINtS 



*********** 



♦.REPLY "NG" OR.+ 



.♦ IS THIS ♦. YES 

. THE SECOND .♦ , 

♦. TRY .♦ 



* WAS ♦. 

THIS FOURTH .♦ 
*. READ .♦ 



**K1*****+* 

* ♦ 

* * 
♦ CLOSE INPUT DCB+ 

* * 

* * 
*********** 



♦ CLOSE INPUT ♦ 

► AND PRINTER « 

♦ CDB ' S ♦ 
* * 

*********** 



****K2 ********* 

* RETURN WITH ♦ 

* CODE B * 

* ♦ 
*************** 



* B3 ♦ 

* * 
**** 



**** 

* * 

* B3 * 

* * 
**** 



**ri4******* 



*********** 



♦ WITH CODE * 

* * 
*************** 



> E5 ♦ 
* * 
**** 

ERROK4 



**Jb******* 



*********** 



****K5********* 
► RETURN ♦ 
* WITH ♦ 
» CODE 4 ♦ 

*************** 



*********** 



**** 

* * 

* E2 ♦ 

* * 

***• 
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Writing Tape Labels (IEHINITT) 



The IEHINITT program provides the user with 
a convenient means of writing volume label 
sets on tapes to conform to Operating 
System/360 specifications. The program 
reads control cards, builds a parameter 
list, calls an SVC routine to write a tape 
volume label set, and informs the user of 
the result of the labeling attempt. 

Program Flow 

The general flow of the program and its 
relationship to the operating system are 
shown in Figure 27. Charts 24 and 25 show 
more detailed flow. Chart 26 shows the 
logic of SVC 39, the tape-labeling SVC 
routine. 

Program Structure 

The program consists of four modules: 
IEHINITT, the control module; IGC0003I, the 
SVC 39 routine; IEHSCAN, the control state- 
ment scan routine; and IEHPRNT, the message 
writer. 

The Control Module (IEHINITT) : The control 
module builds two DCBs (SYSIN and SYSOUT) 
for the tape- labeling operation and moves 



the DCBs to the work area. It then links 
to the message writer (IEHPRNT) to write a 
header, and links to the control statement 
scan (IEHSCAN) to read a control statement 
into main storage. IEHPRNT then prints the 
control statement. Control cycles between 
IEHINITT and IEHSCAN until the parameters 
are analyzed or an error is detected. If 
there are no errors, IEHINITT builds an 
image of the tape label in main storage, 
and then builds a parameter list for the 
tape-labeling SVC by referring to the JFCB, 
TIOT, and UCBs for DD statement informa- 
tion. The symbolic link needed by the pro- 
gram to gain access to this information is 
the ddnaire, supplied in both the DD state- 
ment and the utility control statement. 
IEHINITT then issues the SVC 39, invoking 
the tape-labeling routine. When control is 
returned, IEHINITT analyzes the return code 
and links to IEHPRNT to print the label or 
an error message. The process of building 
the parameter list, issuing the SVC, and 
interpreting the return code is repeated 
for each tape to be labeled. When the last 
tape has been labeled, IEHINITT returns 
control to the supervisor. 

The SVC 39 Routine (IGC0003I) : The SVC 
routine writes the specified volume label, 
a dummy header label (HDRl followed by 76 
EBCDIC zeros) , and a tapemark on a desig- 




o 



Before IEHINITT has gained control, information 
from the data definition (DD) statements has been 
entered in the task I/O table (TIOT) and job 
file control blocks (JFCB) 



© 



IEHINITT gains control and reads a control 
statement. The dd name from the control 
statement indicates which collection of tape 
drives to use from the TIOT 







A drive is selected and its relative position in 
the TIOT is described in the parameter list for 
the tape-labelling SVC. The parameter list 
is built by extracting: 

a) the device type (dual -density, 7-track, or 
9-track) from the UCB 

b) the density for dual -density or 7-track from 
the JFCB 







The SVC is issued and the tape label is written 



© 



The return from the SVC is analyzed and the result is 
logged. If the request being processed shows more 
tapes to be labeled, go to @. If another control 
statement is to be read, go to (2), 



Figure 27. Writing Tape Labels 



68 



nated drive. By issuing a GETMAIN, the 
routine obtains 204 + X bytes, where X is 
the amount by which the volume label 
exceeds the standard length of 80 bytes. 
This area is used for building a DCB, DEE, 
ECB, IOB, and a channel program, and also 
holds messages and labels. Upon entry to 
the SVC routine, register one contains the 
address of a 4-word parameter list: 



Word Bytes Contents 

0-1 X'COOO' 

2 X , 04* to rewind tape 
X*06* to unload tape 

3 a binary number from to n-1, 
where n is the number of UCB 
addresses in the DD entry por- 
tion of the TIOT indicating 
which device to use for volume 
mounting 

1 0-3 a pointer to an 8-byte area 

containing the ddname corres- 
ponding to the ddname in the 
DD entry portion of the TIOT; 
the ddname is left- justified 
and padded with blanks 

2 0-3 a pointer to one volume label 

image to be written on the 
tape 

3 0-1 the binary length of a volume 

label 

2 the binary number one 

3 command code for the control 
CCW to set mode 



The SVC routine extracts the UCB address 
from the DD entry portion of the TIOT. 
This UCB is checked to verify that the tape 
is not SYSIN or SYSOUT, that the tape is 
online and not scheduled to go offline, 
that the tape is not reserved, and that the 
data management count is zero. If a tape 
is already mounted on the device and its 
volume serial number is in the UCB, it is 
unloaded. After the volume label has been 
written and verified, the dummy header 
label and tape mark are written. If the 
tape is not to be unloaded, its volume 
serial number is left in the UCB. If a 
non-standard label was written, the pseudo 
volume serial number LGL000 is left in the 
UCB. If an I/O error or a file-protected 
tape is encountered in the labeling pro- 
cess, the operator is given one attempt to 
correct the situation. (He may strip off a 
few feet of tape or add the file protect 
ring.) When returning control to IEHINITT, 
the SVC routine issues a FREEMAIN to free 
the work area, and loads register 15 with 
one of the following return codes: 



Code Meaning 

00 labeling successful 

04 operator has cancelled labeling 

08 unacceptable parameter list 

0C permanent I/O error 



The Control Statement Scan Routine (IEHS- 
CAN) : This routine reads, using QSAM, con- 
trol statements, checks syntax, and returns 
to IEHINITT an indication of the item 
scanned. IEHINITT supplies a work area (on 
a fullword boundary) containing the DCB for 
the control statement data set, which is 
opened by IEHINITT before calling IEHSCAN. 
IEHSCAN inserts the address of the end-of- 
f ile routine KEOF in the DCB and the EOF 
routine for IEHINITT* is restored when con- 
trol is returned to IEHINITT. After scan- 
ning a field from the control statement, 
IEHSCAN returns to IEHINITT the following 
information: 

• Register 1 points to the starting 
address of the field. 

• Register 2 contains the length of the 
field. 

• A setting of a byte, SWITCHRD, in the 
work area, as follows: 



Bit=l 



Meaning 






Syntax error 


1 


Bypass switch 


2 


EOF 


3 


Initial entry 


4 


Command word 


5 


Keyword 


6 


Parameter 


7 


Not used 



Unlike other control statement fields, 
the owner name field (when enclosed in apo- 
strophes) is moved from the control state- 
ment image to the label image by the con- 
trol statement scan routine. The owner 
name is considered to begin at the first 
byte following the first apostrophe; two 
consecutive apostrophes are considered a 
single embedded apostrophe and counted as 
one byte of a maximum of ten for the field. 
The scan is terminated when the count is 
exceeded or when a single (i.e., not fol- 
lowed immediately by another) apostrophe is 
encountered. 

The Message Writer (IEHPRNT) : This routine 
writes, using QSAM, page numbers, headings, 
and messages. Upon entry to the message 
writer, register 3 contains the address of 
the message minus one. If a permanent I/O 
error is detected in writing the message, 
the one-byte switch SWITCH2 is set to X*01* 
before control is returned and a code of 4 
is returned to IEHINITT in register 15. 
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Chart 24. IEHINITT (Part 1 of 2) 



****Al********* 
» * 

* ENTRY * 
fc ♦ 

*************** 



IFHINIT 

*****gl********** 

* SAVE * 

* REGISTERS, * 

* ESTABLISH ♦ 
♦ADDRESSABILITY * 

***************** 



♦ GETMAIN AND * 
♦MOVE DCB'S INTO* 

♦ WORK AREA * 

♦ * 
***************** 



SEEK 

**+**Dl********** 

♦ ANALYZE AND * 

♦ PROCESS ANY * 

♦ PARAMETERS IN * 

♦ MAIN STORAGE * 

♦ * 
***************** 



*****£!********** 

* * 

♦OPEN DATA SETS * 

***************** 



*****F1 ********** 

♦ IEHPRINT ♦ 
*-*-*-*-*-*-*-*-* 

♦ PRINT ♦ 

♦ HEADER * 
+ ♦ 
***************** 



**** 

♦2* + 

* Gl *-> 



♦ *♦♦ 
REDO 

♦♦♦♦♦Gl ♦♦♦**♦♦*** 

♦ INITIALIZE ♦ 

♦ WORK AREA * 
+ TO DEFAULT ♦ 

♦ OPTIONS ♦ 

♦ ♦ 
***************** 



SCAN 1 

*****H1 ********** 

♦ SET ♦ 

♦ UP PARAMETERS ♦ 

♦ ■ TO PASS ♦- 

♦ TO SCAN ♦ 

♦ ROUTINE ♦ 
***************** 



*****&2 ♦♦♦♦♦♦♦♦♦♦ 

* IEHSCAN ♦ 
*-♦-♦-♦-♦-♦-*-♦-♦ 

>♦ SCAN CARD ♦< 

♦ IMAGE AND ♦ 
♦RETURN A FIELD ♦ 
***************** 



DDNAME BIT 



*****B3 ********** 

♦ IEHPRINT ♦ 
*-*-*-*~ *-*-*-*-* 

>♦ PRINT OUT ♦ •■ 

♦ ERROR ♦ 

♦ MESSAGE ♦ I 
***************** y 



*****£ 3********** 

* 4 

MOVE 



->+DDNAME TO WORK ♦ ■><- 

♦ AREA * 

* * I 
***************** y 



♦ ♦♦♦ 

♦ ♦ 

♦ H2 ♦ 

♦ ♦ 
♦♦♦♦ 



KEYWORD BIT 



I ♦♦♦♦ 

* * 
!•->♦ H3 ♦ 

♦ ♦ 
♦ ♦♦♦ 

SERL 

♦ ♦♦♦*E3^ + ^"^++ 
♦TURN ON BIT IN ♦ 

♦ BYTE FOR ♦ 
>♦ KEYWORD FOUND *- 

♦ (SEE NOTE) ♦ 

♦ ♦ 
***************** 



DISP, OWNER, NUMBCARD, 
NUMBTAPE, SECURITY. 



♦.PARAMETER BIT.^- 



*****Q2 ********** 

♦ CHECK FOR ♦ 

♦ KEYWORD AND ♦ 

♦ FILL IN ♦ 

♦ AREA TO GO ♦ 

♦ WITH KEYWORD ♦ 
***************** 



**** 



**** 
* * 
->♦ J3 ♦ 

♦ ♦♦♦ 



♦ THIS 

THE END OF 
* . CARD 
♦.IMAGE. ♦ 



lr****i]3********** 
* IEHPRNT ♦ 
»-*-*-*•*-*-*-*-* 
» PRINT OUT ♦- 
" ERROR ♦ 
» MESSAGE ♦ 
**** ************* 



. ♦ WAS ♦ . 
.♦SERIAL NO. 
► . SPECIFIED 



♦♦♦♦♦HI **♦♦♦****♦ 

♦ SKIP TO * 

♦ NEXT CARD ♦ 
>♦ WITHOUT ♦ 

♦CONTINUATION IH* 

♦ COL. 72 ♦ 
***************** 



END OF FILE 



♦ *** 



♦ J3 

♦ 
**** 



*****K3* ********* 

♦ * 

♦ PICK UP * 

♦ POINTER TO ♦ 

♦ UCB'S ♦ 

♦ ♦ 
***************** 



*****j5 ********** 

♦ CLOSE DATA * 

♦ SETS, PICK UP ♦ 
->♦ RETURN CODE, ♦ 

♦ FREEMAIN, AND * 

♦ RESTORE RGST. ♦ 
♦♦*♦♦♦*********** 



****h.5********* 

* RETURN ♦ 

* ♦ 
*************** 
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Chart 25. IEHINITT (Part 2 of 2) 



***** 

*25 * 
* A2* 



ISA V 


* 


*****A2 ********** 


A3 *. 


* DETERMINE NO. * 


.* DUAL 


* OF UCB'S AND * 


. * DENSITY 


* SEE IF DD * 


>*. OR 7 


* CARD WAS * 


*. TRK 


* SPECIFIED + 




***************** 


*. . * 



*****A4********** 

* MOVE IN * 

* CONSTANT FOR * 
>* 9 TRACK * 

* DENSITY S * 

* MODE * 
***************** 



r 



**B2******* 

* READ JFCB * 
* AND EXTRACT * 

♦DENSITY TO 'OR 1 * 
*WITH CONSTANT* 

* MODE * 
*********** 



FILL 

*****C2 ********** 

* SET UP * 

* PARAMETER * 
>* LIST * 

* FOR SVC * 



***************** 



SVC 39 

WRITE TAPE 

LABEL 

* * 

*********** 



*****C4********** 

* * 

* INCREMENT * 
-* SERIAL NUMBER * 

* BY ONE * 

* * 
***************** 



SERIAL 
NUMBER 
NUMERIC 



. * WAS * . 
* SVC 
SUCCESSFUL 



GOOD 

*****E3********** 
* IEHPRNT * 
*-*-*-*-*-*-*-*-* 



***************** 



ZERO 
OUT UCB 
POINTER 



YES .* *. NO 

*. INVALID .* 

*. DEVICE .* 



*****H1********** 

* IEHPRNT * 
*-*-*-*-*-*-*-*-* 

* PRINT OUT *< 

* ERROR * 

* MESSAGE * 
***************** 



********** 



H2 



* HAVE ALL 

TAPES BEEN 
*. LABELED . 



*****P4**** ****** 

* * 

* SKIP TO NEXT * 

* LABEL TO BE * 

* WRITTEN * 

* * 
***************** 



-*-*-*-*-*-*-*-* 

PRINT OUT * 

APPROPRIATE * 

ERROR MESSAGE * 

**************** 



Si,T UP 
FOR i~i.fc.xr 
♦.REQUEST 



. END OF FILE .* ■> 



**** 

*2(| * 

* Gl* 



RETURN 

*****£ 5 ********** 
♦CLOSE DATA SETS* 
♦FREEMAIN. PICK ♦ 

* UP RETURN * 

* CODE. RESTORE ♦ 

* REGISTERS * 
***************** 



****G5 ********* 

* * 

* RETURN * 
¥ * 

*************** 



HAVE ♦ . 

ALL UCB 

PTRS BEEN 

. ZEROED . 

♦. OUT .* 

*. .* 

♦ YES 



*****J2** ******** 

♦ IEHPRNT * 
*-*-*-*-*-*-*-*-* 

♦ PRINT OUT * 

♦ ERROR * 
MESSAGE 



********* 



******* 



***** 
*2i| * 

* Gl* 
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Chart 26. SVC 39 Tape Label Routine 



****A1 ********* 

* * 

* ENTRY * 

*************** 

**** 

* * 

* Bl *-> 

* * 
**** 

Bl" 



*****C1 ********** 



***************** 



**D1******* 



*********** 



xxxxxxxxxxxxxxxxxxxxxxxx 

XDETERMINE IF- X 

XI. DDNAME IS IN TIOT X 
X2. UCB ADDR IS IN TIOTX 

X3. DCB IS FOR TAPE X 

X4. UCB IS NOT FOR X 

X SYSIN OR SYSOOT X 

X5. DRIVE IS ON-LINE X 

X6. DRIVE IS NOT X 

X SCHEDULED FOR X 

X OFF-LINE X 

X7. UCB IS NOT RE- X 

X SERVED X 
XXXXXXXXXXXXXXXXXXXXXXXX 



. * ARE ITEMS *. YES 

.1-7 ABOVE ALL.* 

* . TRUE . * 



* NO 
**** 

* * 

* ril *-> 

* * 
**** 

V 
*****H1********** 



***************** 

**** 

* * 

* Jl *-> 

* 4 
**** 

**J1******* 



*****A2********** 

* * 

* BUILD * 
— >*CONTR0L BLOCKS * 

* IN WORK AREA * 

***************** 



* IS VOL. 

SER. NO. 
*. UCB 



**C2******* 

* * 

* EXCP TO * 
* REWIND AND * 

* UNLOAD TAPE * 

* * 
*********** 



***** A3 ********** 



***************** 



WAS 
TAPE MARK 
. WRITTEN . 



* WAS * 

DUMMY 

HEADER 

WRITTEN 



***************** 



->* Jl * 

* * 
**** 



CAW 
HEADER BE 
. READ 



**** 

* 4 

* D3 *-> 

* 4 
**** 

**D3******* 

* * 
*EXCP TO LABEL* 

* AND READ * 
* BACK LABEL * 

* * 
*********** 





CU *. 




*****C5********** 




. * * . 




* SET UP * 


ES 


* IS NEW *. 


NO 


♦CHANNEL PROGRAM* 


— 1 * 


.LABEL SAME AS 


* .. 


* TO WRITE TAPE * 


1 


* . OLD . * 


1 


♦MARK AND REWIND* 


1 




1 


* TAPE * 


V 


*. .* 


V 


***************** 


**** 


* YES 


**** 






* * 


1 


* * 






* HI * 




* H« * 










* * 






* + ** 


1 


**** 








V 




V 




.*. 








DU *. 




D5 *. 




. * HAS * . 




.* *. 


NO 


* LAST USER * 




«5 . * *. 


* 


.VOLUME LABEL 


* r 


—♦.UNLOAD OPTION.* 


A 


BEEN WRITTEN* 


f 


*. 


. * 



**** 

* K3 * 

* * 
**** 



.* STANDARD * 




NO 


* 


PERM 


* 


* . LABELS 


* 






I/O ERROR 




* . .* 




r 


* 






*. . * 




1 








*. .* 




V 




* . .* 




* YES 




**** 




* YES 










* * 




1 










* A1 * 














* * 














**** 




J, 




i 


7 












*****P2********** 






F3 *. 




* 


* 






* * 




* INSERT VOLUME 


* 




* 


TAPE 


* 


* SERIAL NUMBER 


* 


* 




FILE 




* INTO 


UCB 


* 




* 


PROTECTED 





**** 

* * 

* D3 * 

**** 



*****£ 4********** 

* * 

* CONSTRUCT * 

* DUMMY HEADER * 

* LABEL * 

* * 
***************** 



**** 
NO * * 

,* >* K3 * 

* * 
**** 



***************** 



r >\ 



FREEMAIN 
*********** 



****£!********* 
* 
* RETURN 

*************** 



**G2******* 

* * 

* WTOR 
•MOUNT VOL 

* TO BE 

* LABELLED' * 
*********** 



**G3******* 

* * 

* WTO 'TAPE 
* IS FILE 

* PROTECTED' 

* 4 
*********** 



*****H3 ********** 

* * 

* SET * 

* SECOND-TIME *<- 

* LOGIC SWITCH * 

***************** 



**** 

* 4 

* HI 4 



**H4******* 

* WTO * 

' LABELS 

CANNOT BE 

VERIFIED" 

t * 

*********** 



**** 

* * 

* Bl * 

* * 
**** 



*****K2********** 



*************** 



*****K3 ********** 



***************** 



V 



*****£5 ********** 
♦MODIFY CHANNEL * 

* PROGRAM TO * 
♦WRITE TAPE MARK* 

* AND * 

* UNLOAD TAPE ♦ 
***************** 
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Dumping, Restoring, and Initializing 
Direct Access Volumes (IEHDASDR) 



The IEHDASDR program dumps, restores, and 
initializes direct access volumes according 
to parameters specified in control state- 
ments. The functions that may be specified 
ares 



Dump . When the DUMP operation is spe- 
cified, the IEHDASDR program creates a 
copy (or copies) of the direct access 
volume on one or more tape or direct 
access volumes, or as a system output 
data set. 



The IEHDASDR program can perform certain 
functions concurrently on several volumes 
of the same type. The user can specify 
more than one volume in a DUMP, RESTORE, 
ANALYZE, or FORMAT statement; the program 
processes the volumes concurrently in the 
sense that I/O operations are overlapped. 
This type of concurrent processing is known 
as "making copies" ; in the case of a dump 
or restore there can be only one input 
volume, and the output volumes are copies 
of one another. In the case of an analysis 
or format, all volumes specified in the 
control statement are processed the same 
way, and if a new serial is specified all 
are given the same volume serial. In eith- 
er case, the program uses only one set of 
buffers and internal tables. 



• Restore . When the RESTORE operation is 
specified, the program copies "dumped" 
data from a tape volume to one or more 
direct access volumes, thus making one 
or more copies of the dumped volume. 



• Initialize . There are four initializ- 
ing functions that may be specified: 



1. 



Specifying ANALYZE causes the pro- 
gram to perform a complete initia- 
lization of one or more direct 
access volumes. The program per- 
forms a surface analysis by 
inspecting each volume for defec- 
tive tracks, it obtains alternate 
tracks for all defective tracks, it 
formats acceptable tracks, and it 
constructs a volume label, volume 
table of contents (VTOC), and 
(optionally) an IPL program for 
each volume* 

Specifying FORMAT causes the pro- 
gram to perform all of the initia- 
lizing functions (except surface 
analysis) for one or more volumes. 

Specifying LABEL causes the program 
to write a new volume serial (and 
optionally an owner name) on a 
direct access volume. 



4. Specifying GETALT causes the pro- 
gram to assign an alternate for the 
specified disk or data cell track. 



The user specifies the functions to be 
performed by writing control statements and 
placing them in the input stream data set. 
He must also supply DD statements defining 
the data sets, devices, and volumes 
required for the program, and may also spe- 
cify program parameters either in the EXEC 
statement PARM field or in a parameter area 
(see the section "Auxiliary Parameters" in 
this publication) . 



3. 



The IEHDASDR program can also perform a 
Dump, Restore, Analyze or Format function 
concurrently on several volumes which may 
be of different types. The user specifies 
the same operation (e.g. DUMP,) on several 
successive control statements; if enough 
main storage is available for buffers and 
internal tables (a set is required for each 
statement) , and if enough I/O devices are 
available, the volumes will be processed 
concurrently. Concurrent in this sense 
(and as it is used in the remainder of this 
section) means that a processing routine 
will be reentered to process a different 
set of volumes when it waits for the com- 
pletion of certain I/O operations, as well 
as when its processing of one set of 
volumes is completed. 



The IEHDASDR program may be executed as 
a job step, or it may be executed as a part 
of a program performing a job step. The 
user invokes the program by using IEHDASDR 
as the program name parameter in an EXEC 
statement, or by using it in the operand of 
an LINK or ATTACH macro instruction. The 
IEHDASDR program, which consists of an 
initialization routine, a control routine 
and a set of functional routines, is 
entered at the Initialization routine 
(module IEHDASDR) . The Initialization rou- 
tine obtains main storage for the common 
work area (Figure 28), initializes it 
according to any parameters passed from the 
caller, then uses the XCTL macro instruc- 
tion to pass control to the Control routine 
(module IEHDASDS) . When it has performed 
the specified functions, the Control rou- 
tine returns control to the caller. 



The Control Routine (IEHDASDS) 



The Control routine is entered via an XCTL 
or ATTACH macro instruction issued in the 
Initialization routine. The Control rou- 



System Utility Programs: IEHDASDR 73 



tine uses the Scan routine to read control 
statements, and based on the specifications 
in the statements, the Control routine 
passes control to the appropriate function- 
al routine. (Control flow among the 
modules of the IEHDASDR program is shown in 
Chart 27.) When all statements have been 
processed, the Control routine issues a 
RETURN macro instruction. 



Initialization 

When the Control routine (Charts 28 and 
29) is entered, it uses the OPEN (type J) 
macro instruction to open the SYS IN (con- 
trol) and SYSOUT (message) data sets. It 
uses the LINK macro instruction to pass 
control to the Print routine (module IEHD- 
PRINT) which places a header record in the 
message data set, then uses the LINK macro 
instruction to pass control to the Scan 
routine (module IEHDSCAN). 
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128 


8 

V 
V 


128 


SWITCHRD ] 
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268 


Switch 1 ] 




Pointer to Current Function Block 


3 




k 


272 


Queue Code 1' 




Pointer to First Function Block 


3 






' Queue C< 


>des and Pointers to Second- Fifth Function Blocks 






288 


Queue Code 6' 




Pointer to Sixth Function Block 


3 




292 




Po 


nter to Last Available Queue Slot 


4 


' 


296 


Page Switch 


Reserved 


Number of Function Blocks Enqueued 


2 




300 






Pointer to IPL Program Text 


4 




304 






Address of SYSOUT DCB 


4 




308 






Address of SYS IN DCB 


4 




312 






DDNAME of Input Data Set 


8 




320 






DDNAME of Output Data Set 


8 





Figure 28. IEHDASDR Common Work Area 



Notes ; The common work area resides in an 
area of main storage obtained via a GETMAIN 
macro instruction in the Initialization 
routine (module IEHDASDR) . Although the 
names of most fields are self-explanatory, 
the following fields require further 
description: 



• SWITCHRD indicates the result of scan- 
ning a field of a control statement. 
When set to 1, the bits have the fol- 
lowing meanings: 

Bit Syntax Error 

Bit 1 Bypass Switch 

Bit 2 End-of-Data, SYSIN Data Set 

Bit 3 Initial Entry 

Bit 4 Operation Field 

Bit 5 Keyword Field 

Bit 6 Parameter Field 

Bit 7 Reserved 

• Switch 1 indicates the status of the 
function queue . The bits have the fol- 
lowing meanings when set to 1: 

Bit Reserved 

Bit 1 Parameter processed 

Bit 2 Multiple parameter possible 

Bit 3 Looking for IPL text 

Bit 4 Reserved 

Bit 5 TODD=cuu 

Bit 6 Concurrent processing 

Bit 7 Looking for operation field 

• Queue Code indicates the status of the 
function block. The bits have the fol- 
lowing meanings when set to 1: 

Bit Entry active (this slot not 
available) 

Bit 1 Processing complete 

Bit 2 Processing includes copies 

Bit 3 Processing interrupted 

Bit 4 Processing started 

Bit 5 Reserved 

Bit 6 Reserved 

Bit 7 No main storage available N 

Processing and Control 

The Control routine uses a scan routine 
to read and check the syntax of the control 
statements. Each time the Scan routine is 
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entered it checks one field; on the return, 
the Control routine validates the scanned 
field. 

If either the Control routine or the 
Scan routine encounters an error, the Con- 
trol routine places a message in the mes- 
sage data set, and starts to scan the next 
control statement. 



If the operation field (which specifies 
the function to be performed) is valid, the 
Control routine obtains main storage and 
constructs a function block (Figure 29). 
The function block specifies the function 
to be performed on a set of volumes, speci- 
fies the volumes, and contains Control 
information. If the statement specifies 
multiple volumes, the Control routine con- 
structs a copy block (Figure 30) for each 
additional volume. The copy blocks are 
chained to the function block; they contain 
specifications for the additional volumes 
in „the set. 



16 



20 



24 



28 



32 



36 



40 



44 



DDNAME (FROMDD) 



DDNAME (TODD) 



Function 



SEQSW 



Dump Output 1 
Device 



Pointer to First Copy Block 



Return Point Address 



Device Constants Address 



Pointer to Input Device UCB 



Function Block Size 



Reserved 



Pointer to Output Device UCB 



Function - Dependent Area : 
Size and Format Variable 



J 



Figure 29. IEHDASDR Function Block 



Notes : A function block is created, and 
enqueued in the function queue, each time 
the Control routine processes a control 
statement. The function block, which con- 
tains the information necessary to perform 
the function, is dequeued (and its main 
storage released) when performance of the 
function is terminated. 

Although the names of most of the fields 
of the function block are self-explanatory, 
the following fields require further 
explanation: 



Function is a 1-byte field containing a 
code that represents the function to be 
performed. The codes (in hexadecimal) 
are: 



DUMP 

RESTORE 

GETALT 

LABEL 

ANALYZE 

FORMAT 



10 
20 
30 
40 
50 
60 



SEQSW is a 2-byte field that indicates 
which keywords were present in the con- 
trol statement. If a bit is on, its 
meaning is as described below: 



Byte 1 : Bit 0: 
Bit 1: 
Bit 2: 
Bit 3: 
Bit 4: 
Bit 5: 
Bit 6: 



FROMDD, TRACK, NEWVOLID 

TODD 

CPYVOLID, EXTENT 

BEGIN, VTOC 

END, IPLDD 

OWNERID 

FLAGTEST 



Bit 7: PASSES 

Byte 2 : Bit 0: PURGE 

Bits 1-7 : Reserved 

• Dump Output is a 1-byte field used dur- 
ing the performance of the DUMP func- 
tion to indicate the type of output 
device. The codes (in hexadecimal) 
are: 

Tape 00 

System Output F0 

Direct Access FF 

• Return Point Address is a 4-byte field 
used during concurrent processing to 
contain the address at which the func- 
tional routine is to continue 
processing. 

• Device Constants Address is a 4-byte 
field that initially contains the 
address of the control section IEHD- 
CONS. This control section contains 
information about each type of direct 
access device, and the field is updated 
t<3 point to the IEHDCONS entry pertain- 
ing to the device type involved in per- 
forming the function. 

• Function Dependent Area is a field 
whose format and size depend on the 
function to be performed. The format 
used in each case is shown with the 
description of the way the function is 
performed. 
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DDNAME (Copy Device) 



.4 



Pointer to Previous Block in Chain 



Address of UCB 



Error Retry Count 



Error 1 
Found 



Address of Next Block in Chain 



Trailer Label Control 



Alternate Track Information 



Home Address Buffer 



Reserved 



116 



156 



DCB, IOB, and ECB for Copy Device 



Reserved 



120 



Channel Program 



Figure 30. IEHDASDR Copy Block 

When it has constructed the function 
block and any necessary copy blocks, the 
Control routine enqueues the function block 
in the function queue by creating a func- 
tion queue entry for the block. The func- 
tion queue is a FIFO queue; each entry 
points to a function block, and the Control 
routine attempts to initiate performance of 
functions in the order in which they are 
enqueued. When performance of a function 
on a set of volumes has terminated, the 
Control routine deletes the corresponding 
entry from the function queue, and pushes 
all lower priority entries toward the top 
of the queue. 

When it has enqueued the function block 
corresponding to the first control state- 



ment, the Cqntrol routine initiates perfor- 
mance of the function. The routine loads 
the appropriate functional routine, loads 
registers with pointers to the common work 
area and the function block, then branches 
to the functional routine. 



Subsequently, when the Control routine 
initiates performance of a function, it 
must first determine whether the correct 
functional routine is loaded. If so, it 
loads the pointers and branches to the 
functional routine; if not, the Control 
routine deletes the old functional routine 
and loads the new one before branching to 
it. 



Once a functional routine has been 
entered, it may return to the control rou- 
tine under the following circumstances: 

• The required main storage is not 
available. 

• An I/O operation has been started but 
not completed, and concurrent opera- 
tions can take place. 

• Performance of the function has been 
terminated, either because processing 
is complete or because an unrecoverable 
error has been encountered. In the 
latter case, the functional routine 
passes a return code greater than zero. 
The control routine stores the highest 
return code and passes it to the user 
at the end of the run. 

The logic and processing performed in 
the Control routine when a functional rou- 
tine returns control to it is shown in 
Figure 31. 
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^ 

Main Storage Not Available 
Processing Interrupted 
Processing Complete 
Current Entry is at Top of Queue 
Current Entry is Last in Queue 
Additional Queue Space is Available 
Next Entry Can be Processed 
End-of-Data on SYSIN 

DO ACTION NUMBER 



Functional Routine Returns to Control Routine 



T _ T — r _ T — r _ T — r _ T _ T _ T — r _ T _ T _ T _ T _ T _^ 

|Y|Y|Y|Y|Y| | | | | | | | | | | 

+ _ + - + _ + _ + _ + _4_ + _ + _ + _ + _ + _ + _ + _ + _ +H 

I I I I I |Y|Y|Y| | | | | | | | 

+ _ + _ + _ + _ + _ + _4_ + _ + _ + _ + _ + _ + _ + _4_. M 

| | | | | | | | |Y|Y|Y|Y|Y|Y|Y|Y 
+ _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _.| 

|N|Y|Y|Y|Y| J | |YJY|Y|Y|N|N|N|N 
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-H 

j | Y | Y | N | N j | | j Y j Y | N | N J Y j Y j N J N 

+-+-+-+-+-+-+--f-+-+-+-+-+-+-+-+-H 

I I I I I I m I I I I I I I I 

+-+-+-+-+-+-+-+-+-+-+-+-+-+-4-+H 

I I I I I |Y|N|N| | | | | | | | 

„____ + _ + _ + _ + _4_ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _ + _^ 

j |Y|N|Y|N|Y|Y| JY|N|Y|N|Y|N|Y|N 

+-+-+-+-+H--+-+-+-+-+-+-+-+-+--M 

J4|7|9J8|9|1|2|2|7|9|8|9|8|9|8|9 

L_J._J._J._JL_-L_JL_JL_-L_J._-L_-L_-L_X_X_.L_-| 



1. Initiate the function specified in the function block corresponding to the next 
queue entry. 

2. Initiate the function specified in the function block corresponding to the entry 
at the top of the queue. 

3. Release the main storage obtained in the Control routine, close the SYbIN and SYS- 
OUT data sets, and return control to the caller. 

4. Mark the entry "No Main Storage Available" and do Action 2. 

5. Free the main storage occupied by the function block and delete the entry from the 
function queue. 

6. Scan, and enqueue a function block for the next control statement. 

7. Do Actions 5 and 3. 

8. Do Actions 5 and 2. 

9. Do Actions 5, 6, and 2. 

Note : The next entry can be processed if the functions are the same, the devices are 
available, and main storage is available. 

L . 

Figure 31. IEHDASDR Control Routine Processing at Functional Routine Return 



Performing the Dump Function 

When the Dump function is specified, the 
Control routine passes control to the Dump 
routine (module IEHDDUMP) . This routine 
(see Chart 30) initializes the input device 
and the output devices, then passes control 
to the I/O routine (module IEHDEXCP) . 
Module IEHDEXCP performs the I/O opera- 
tions, except that when the output is a 
SYSOUT data set, it uses module IEHDACUT as 
a subroutine to format and write the dumped 
information. 

The dump routine returns control to the 
Control routine whenever processing is 
interrupted to await completion of an I/O 
operation, and when the function is ter- 
minated, either because the dump is com- 



plete or because an uncorrectable I/O error 
makes it impossible to continue. 

When it is entered, the Dump routine 
verifies that the input device is a direct 
access device, then issues a conditional 
GETMAIN macro instruction to obtain main 
storage for a buffer and a work area. If 
enough storage is not available, the rou- 
tine returns control to the Control 
routine. 

If the Dump routine is able to obtain 
the required main storage, it constructs an 
ECB, IOB, and DCB for the input device, and 
stores them in the function-dependent area 
of the function block (see Figure 32). It 
uses the RDJFCB and OPEN (type J) macro 
instructions to read the JFCB and open the 
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VTOC data set, then sets the dump extents 
to correspond to the tracks specified in 
the function block by converting the track 
specifications to CCHH format and storing 
them in the limits record (Figure 33). If 
no dump extents are specified, the routine 
stores the CCHH of the first and last 
tracks on the volumes. 



contain the number of alternate tracks 
available. 

The field containing the pointer to the 
first RESTORE buffer may also contain 
X'FF' in the high order byte. If so, 
it indicates that there are two RESTORE 
buffers, and the next field points to 
the second buffer. 



44 


4 
CCHH of First Track 


4 
CCHH+1 of Last Track 


52 


4 
CCHH of First Track on This Vol. 


Restore Tape Identifier 


60 


8 
Restore Tape Identifier (con't.) 


Dump 
Switch 


Device 
Type 


2 

Reserved 


68 


4 
Reel Check 


Alternate Track Information 


76 


6 
Alt. Trk. Info (con't) 


Dump 1 

Formatted 

Switch 


1 
Reserved 


256 




Output and Input ECBs, lOBs, DCBs, and 
Channel Programs to Write and Read Tape 






Pointer to Read CCWs (Dump), or 4 
to First Restore Buffer 


340 


4 
Ptr. to Write and Read CCWs (Dump) 

or to Second Restore Buffer 


4 
Pointer to Dump Count Field Buffer 


348 


4 
Pointer to Data Buffer 


4 
Pointer to Unused Track Table 


356 


4 
Temporary Work Area 









• The last 16 bytes of the area are pre- 
sent only for the Dump function. 



Figure 32. IEHDASDR Function Block — 
Dump/Restore Area 



Notes : This figure shows the format of the 
function-dependent area of the function 
block as it is used in the performance of 
the DUMP and RESTORE functions. Although 
most of the field names are self- 
explanatory, the following fields require 
further explanation: 

• The first seven fields in the area are 
the 24-byte limits record. 

• The reel check field contains the first 
4-bytes of the restore tape trailer 
label; it indicates whether the reel is 
the last reel required to complete the 
restore. 

• The Alternate Track Information field 
is extracted from the Format 4 DSCB of 
the primary output volume and contains 
two subfields: the first four bytes 
contain the CCHH of the next alternate 
track available, and the last two bytes 








CCHH of First Track Dumped 


4 


4 




CCHH+1 of Last Track Dumped 


4 


8 




CCHH of First Track of Volume 


4 


12 




Restore Tape Identifier 
(X'F4006Q1663B24D') 


8 


20 


Dump Switch 


^ . t 1 
Device Type 


Reserved 


2 



Notes: 1 . Dump Switch settings: 
X'FO' = Full Dump 
X'00 1 - Partial Dump 

2. Device Type Codes: 

= 2321 

1 =2311 
2=2314 

3 = 2302 

4 = 2303 

5 = 2301 



Figure 33. 24-Eyte Limits Record 

If the output is a SYSOUT data set, it 
is the only output permitted; the Dump rou- 
tine performs no further initialization, 
but passes control to the I/O routine. If 
the output is to tape or direct access, 
there may be multiple output volumes, and 
further initialization must be performed 
for each of the output volumes. 

The routine constructs an ECB, IOB, and 
DCB for the first output volume, and stores 
them in the function block. If the volume 
is a tape volume, the routine opens the 
tape, and uses the EXCP macro instruction 
to write the limits record. If the volume 
is a direct access volume, the routine 
verifies that it is not System Residence, 
then uses the RDJFCB and OPEN (type J) 
macro instructions to read the JFCB and 
open the VTOC data set. The routine then 
reads the Format 4 DSCB and saves the 
alternate track information so that it can 
be placed in the VTOC of the output volume 
when the dump is complete. 
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When it has initialized the first output 
volume, the Dump routine determines whether 
additional volumes have been specified. If 
so, it verifies that the next volume is of 
the same type, then initializes it. The 
procedure is the same as that used for 
initializing the first volume, except that 
the IOB, ECB, and DCB are stored in the 
copy block associated with the volume. Any 
other output volumes are then initialized, 
one at a time. 



determines the output device type, 
writes out the contents of the record, 
and erases the remainder of the track. 



If the track contains a home address, 
record 0, and record 1, the I/C routine 
determines the output device type, and 
writes out the contents of the records. 



When all of the output volumes have been 
initialized, the routine passes control 
(via a LINK macro instruction) to module 
IEHDPASS to have the required security 
checks made. On the return, the Dump rou- 
tine reads and inspects the Format 5 DSCB 
from the input device. The routine 
extracts the available extent information, 
converts it to CCHH form, and builds a 
table of unused tracks. The I/O routine 
uses the table to insure that (unless the 
output is a SYSOUT data set) , only those 
tracks that are in use (listed in the DSCB 
as "not available for allocation") will be 
dumped. When it has built the table, it 
passes control to the I/O routine. 



The function of the I/O routine is to 
read information from the input volume and 
(if the output volume is a tape or direct 
access volume) to write the information 
out. If the output is a SYSOUT data set, 
the I/O routine uses module IEHDAOUT as a 
subroutine %o format and write the data. 



When the I/O routine has determined that 
a track is within the specified limits, and 
that it is either in use or that the output 
is a SYSOUT data set, it issues the EXCP 
macro instruction to execute a channel pro- 
gram that reads the data field of record 0, 
the count, key and data fields of record 1 
(if it exists), and the count fields of any 
additional records on the track. When it 
has issued the EXCP, the I/O routine 
returns control to the Dump routine, which 
in turn returns control to the Control rou- 
tine. When it is re-entered to continue 
performing the function, the I/O routine 
waits for the channel program to be 
completed . 



When the channel program is complete, 
the I/O routine determines whether the 
track contains a home address and only one 
record (E0) , a home address and two records 
(R0 and Rl) , or a home address and more 
than two records: 



• If the track contains only a home 
address and record 0, the routine 



• If the track contains a home address, 
record 0, record 1, and additional 
records, the I/O routine reads the key 
and data fields of record 2 and the 
count, key, and data fields of the 
additional records. It then determines 
the output device type, and writes out 
the contents of the records. 

If the output is a SYSOUT data set, the 
I/O routine passes control to module IEH- 
DAOUT, which formats and writes the track 
contents . 

If the output volume is a direct access 
volume, the I/O routine writes to every 
(primary) track on the volume. Those 
tracks on the input volume that are in use 
are copied onto the output volume; each 
track corresponding to an unused input 
volume track is formatted with a home 
address and record 0. The remainder of the 
track is cleared. 

If the output volume is a tape volume, 
the I/O routine writes a control record for 
each track on the input volume. The con- 
trol record contains the channel program 
used by the Restore routine to write one 
track; it is followed by the track image 
record, which contains the data field of 
record 0, and all fields of any other rec- 
ords on the track. 

At end-of -volume, a trailer record is 
written following the tapemark. The first 
4 bytes of this 24-byte record indicate 
whether this volume is the last volume of 
the restore data set. 

The I/O routine (module IEHDEXCP) 
returns control to the Dump routine under 
two conditions : 

If the Dump routine is performing func- 
tions concurrently, module IEHDEXCP returns 
control to it whenever processing is inter- 
rupted to wait for the completion of an I/O 
operation on a track that contains a home 
address and more than two records. In this 
case, the Dump routine returns control to 
the Control routine; when it is re-entered 
to perform the same function, the Dump rou- 
tine again passes control to the I/O 
routine. 



System Utility Programs: IEHDASDK 79 



If the I/O routine has terminated its 
processing, either because the dump is com- 
plete or because of an unrecoverable I/O 
error, it returns control to the Dump rou- 
tine. In this case the Bump routine closes 
the input and output data sets, releases 
the main storage it obtained for buffers, 
places a completion message in the message 
data set, and returns control to the Con- 
trol routine. 



Performing the Restore Function 

When the restore function is specified, the 
Control routine passes control to the 
Restore routine (module IEHDREST) , which is 
shown in Chart 32. The input to the 
Restore routine is a restore tape, which 
may have been created by performing the 
Dump function in this program, or in the 
IBCDMPRS program. A restore tape (see 
Figure 34) contains the information neces- 
sary to make a copy of the direct access 



volume used to create it; the Restore rou- 
tine makes one or more such copies . The 
Restore routine returns control to the Con- 
trol routine when the restore is complete, 
when an uncorrectable error makes it 
impossible to continue processing, or when 
processing is interrupted while awaiting 
completion of an output operation. 



When it is first entered, the Restore 
routine attempts to obtain main storage for 
two buffers. If it is able to obtain 
enough storage for at least one buffer, 
processing continues.; if not, the routine 
sets a switch and returns control to the 
Control routine. 

If storage is available for at least one 
buffer, the routine determines the validity 
of the output volume specifications. The 
output volumes must all be of the same 
type, but the system residence volume (s) 
may not be specified. 



TAPE MARK 




TAPE MARK 



Limits Record: A 24-byte record containing extent limits and restore tape identifier, 

located after the initial tape mark on the first volume of the restore 
tape. 

Control Record: A variable-length record containing the channel program required to 

write the associated track, located immediately before the track image 
record for the track. 

Track Image Record: A variable-length record containing the count, key, and data fields 
of the records on the track. 

Track Record: A 24-byte record containing, in the first 4 bytes, the reel number 

and termination code. 



Figure 34. Restore Tape Format 
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If the output volume specifications are 
valid and the volumes are available, the 
routine opens the input tape, checks the 
limits record to insure that the tape is a 
restore tape and that the volume used to 
create it is the same type as that speci- 
fied for output. 

If so, the routine builds an ECB, IOB, 
and DCB for each output volume. If there 
are multiple output volumes, the control 
blocks for the first are stored in the 
function block, and those for the addition- 
al devices are stored in the copy blocks. 

When it has constructed the control 
blocks, the routine uses the RDJFCB and 
OPEN (type J) macro instructions to read 
the JFCB and open the VTOC data set on each 
output volume, and uses the Password Pro- 
tection routine (IEHDPASS) to make the 
required security checks on the volume's 
data sets. 

The Restore routine uses the EXCP macro 
instruction to read the Format 4 DSCB from 
each output volume, then extracts and saves 
the alternate track information. Since the 
VTOC will be replaced with the VTOC from 
the volume used to create the restore tape, 
the alternate track information from the 
output volume must be placed in the new 
VTOC. 

When initialization is complete, the 
Restore routine uses the EXCP macro 
instruction to read a control record and a 
track image record from the restore tape. 
The control record contains the channel 
program necessary to write the track image 
record to the output volumes. The Restore 
routine updates the channel program with 
the correct data addresses, then issues the 
EXCP macro instruction for each output 
volume. 

When it has issued the EXCP, the routine 
returns control to the Control routine. 
When it is re-entered to continue perform- 
ing the function, the routine waits for the 
output operations to be completed. When 
the operations are completed, the routine 
again reads from the restore tape and 
repeats the procedure. 

At end-of -volume, the routine reads the 
trailer record from the restore tape and 
determines whether there are additional 
tape volumes to process. If the first four 
bytes of the trailer record contain 
X'FFFFFFFE*, the restore is complete. The 
routine updates the Format 4 DSCBs in the 
output volumes, places a completion message 
in the message data set, releases the main 
storage it obtained, closes the input and 
output DCBs, and returns control to the 
Control routine. If the trailer record 
does not indicate that the restore is com- 



plete, the return issues the EOV macro 
instruction to have the next volume 
mounted, and continues processing. 



Performing the Analyze and Format Functions 

When the Analyze or Format function is spe- 
cified, the Control routine passes control 
to the Analyze/Format routine (module IEH- 
DANAL) . This routine (shown in Chart 33) 
performs surface analysis and formatting 
functions for disk and drum volumes (or 
passes control to module IEHDCELL to per- 
form these functions if the device is a 
data cell drive) and passes control to 
module IEHDVTOC to construct and write IPL, 
volume label, and VTOC records. When pro- 
cessing is terminated, either because the 
function has been completed or because a 
computing system error has made it impossi- 
ble to continue, the routine returns con- 
trol to the Control routine. The routine 
also returns control to the Control routine 
during concurrent operations when process 
sing is interrupted for an I/O wait. 



Initialization 

When the Analyze/Format routine is first 
entered, it is given the address of the 
function block specifying the function to 
be performed. 

Note : The format of the function- dependent 
area of the function block, as is used in 
the performance of the Analyze and Format 
routines, is shown in Figure 35. 

If the function is to be performed on 
more than one device, copy blocks have been 
chained to the function block; the routine 
constructs an IOB, ECB, and DCB for each 
volume. It stores the blocks for the first 
volume in the function block, and stores 
the blocks for the additional volumes in 
the copy blocks. If a volume is new (unla- 
beled) the routine makes sure that the 
device containing that volume is offline, 
then uses the SVC routine to construct a 
DEB in protected storage, but performs no 
open. Otherwise, the routine uses the 
RDJFCB and OPEN (type J) macro instructions 
to read the JFCBs and open the VTOC data 
sets. 

When it has performed the open or con- 
structed the DEB, the routine uses the Pas- 
sword Protection routine to make security 
checks on the volume. On the return, it 
initializes a channel program to analyze 
and format or to format each device, then 
stores the channel program in the appropri- 
ate function or copy block. If the devices 
are 2321 Data Cell Drives, the construction 
and storing of the channel program, as well 
as the execution of the surface analysis 
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and formatting procedures is performed in 
module IEHDCELL; if the devices are disks 
or drums, these functions are performed in 
module IEHDANAL. 



Surface Analysis and Formatting Procedures 
— Disk and Drum Volumes 

The nature of the channel program used 
depends on whether a surface analysis or 
formatting operation is being performed, 
whether a flag test has been specified, 
whether multiple passes are to be made on 
each track, and whether the volume is a 
disk or drum. The sequence of commands in 
each case is shown in Figure 36. Note that 
the two Analyze/Format channel programs are 
virtually identical, except for the first 
two commands, as are the two Format Only 
channel programs. The first two commands 
are different because an unused disk has no 
home addresses, and no successful search 
could be made. Also, since defective 
tracks on a drum are not flagged, rewriting 
the home address will not destroy any pre- 
viously written flags. 

The first part of the Analyze/Format 
channel program is executed on each pass; 
maximum length ROs are written twice and 
read back twice, and the home addresses are 
read twice. If a flag test is to be done, 
the data is transferred on the second home 
address read, and the field is checked for 
the presence of a defective track flag. 
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Figure 35. IEHDASDR Function Block — 
Analyze/Format Area 
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Figure 36. Analyze/Format Channel Programs 
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The second part of the Analyze/Format 
channel program (which duplicates the For- 
mat Only channel program for the corres- 
ponding device type) is executed only on 
the last pass. A standard (8-byte) RO is 
written, and in the case of a disk device, 
the home address is tested for flags. 

During concurrent operations, the rou- 
tine returns control to the Control routine 
when the EXCP macro instruction for each 
device has been issued; it is eventually 
reentered to wait for completion of a chan- 
nel program. 

When a channel program is completed, the 
Analyze/Format routine determines whether 
any errors have occurred. If not, and if 
there are other channel programs that have 
not been completed, the routine enters the 
wait again. It repeats this procedure 
until either an error occurs, or until all 
channel programs have been completed. 

When all channel programs have been com- 
pleted, the routine determines whether 
additional passes have been specified. If 
so, it re-issues the EXCP macro instruction 
for each device and repeats the procedure 
until all required passes have been made. 

When the last pass has been made, the 
routine reinitializes the channel programs 
for each device so that they apply to the 
next track, and repeats the entire 
analysis/format procedure. 



Error Procedures — Disk and Drum Volumes' 

There are two classes of errors that can 
occur during a surface analysis operation: 
errors that indicate a failure of the com- 
puting system, and errors that indicate a 
defect in the volume being analyzed. Those 
errors that indicate machine malfunctions 
are handled by the normal I/O Supervisor 
error routines. If such an error cannot be 
corrected, the Analyze/Format routine ter- 
minates the function, closes the volumes, 
and returns control to the Control routine. 
If the function being performed is the for- 
mat function, all errors arehandled in this 
manner. 

When a surface analysis is being per- 
formed, however, a distinction is made 
between the two types of errors. The 
errors that indicate that a track is defec- 
tive, and are handled by the Analyze/Format 
routine, are Data Check and (for the 2314 
Direct Access Storage Facility only) Track 
Overflow. 1 When such an error is encoun- 



tered, the Analyze/Forirat routine retries 
the channel program until an error is 
encountered again or until the channel pro- 
gram has been retried ten times with no 
errors. If an error occurs the track is 
declared defective, and the routine places 
a message describing the defective track in 
the message data set. If the device is a 
drum, no alternate track can be assigned by 
the program, and the IBM Field Engineer 
should be notified. If the device is a 
disk, the Analysis/Format routine issues 
SVC 82 and the Alternate Track Assignment 
routine is used to assign an alternate 
track. If the track is in the alternate 
track area, however, no alternate will be 
assigned; the track will be flagged defec- 
tive to prevent its future assignment. 

When an alternate track is assigned, the 
Analyze/Format routine places a message 
describing the alternate track in the mes- 
sage data set. 



Surface Analysis and Formatting Procedures 
— Data Cell Volumes 

The surface analysis and formatting of a 
data cell volume is performed by module 
IEHDCELL, which is used as a subroutine by 
the Analyze/Format routine. Module 
IEHDCELL writes a home address, a standard 
length (8-byte) RO, and a maximum length Rl 
on each track of a cylinder, then reads 
each home address, RO, and Rl back to check 
for errors. The channel programs used for 
writing and reading are as follows: 



Writing 

Write HA 

Write RO 

Write Count-Key-Data 



Reading 
Read HA 
Read RO 
Read Count-Key-Data 



A 0n the last "READ RO", the routine also 
handles a No Record Found/Missing Address 
Markers condition. 



The routine repeats the procedure, 
cylinder by cylinder, until each track on 
the volume has been read and verified. 
When the analysis of a strip, subcell or 
cell is complete, the .routine makes addi- 
tional (address compare) checks to verify 
correct positioning. 



Error Recovery Procedures — Data Cell 
Volumes 

Most of the errors that may be encoun- 
tered while performing the surface analysis 
of a data cell volume are handled by normal 
I/O Supervisor error procedures, and if 
they cannot be corrected, the function is 
terminated. There are two exceptions to 
this procedure: 

• No Record Found and Missing Address 
Markers: The I/O Supervisor error 
recovery routine is used, but if the 
errors occur together, and no recovery 
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is possible, module IEHDCELL places a 
message describing the defective track 
in the message data set, and causes an 
alternate track to be assigned. 



• Data Check: If this error occurs, 
module IEHDCELL retries the channel 
program up to 113 times. If the chan- 
nel program is executed successfully 
once, the track is considered good. If 
no successful execution occurs the 
track is considered defective. In that 
case a message describing the defective 
track is placed in the message data 
set, and an alternate track is 
assigned. 

The alternate track assignment procedure 
is the same as that used for disk volumes. 
The alternate track area of the volume is 
checked first, and defective tracks found 
in that area are flagged. No alternate 
tracks are assigned to defective tracks in 
the alternate track area. If the defective 
track is not in the alternate track area, 
module IEHDCELL places a message describing 
the defective track in the message data 
set, issues SVC 82 to have an alternate 
track assigned, then places a message 
describing the alternate in the message 
data set. 



Supplying a VTOC and IPL Records 

When the last track on each device has 
been analyzed or formatted, the Analyze/ 
Format routine passes control to module 
IEHDVTOC (see Chart 34). This module con- 
structs and writes the IPL Bootstrap, IPL 
Text, VTOC, and Volume Label records. 

When it is entered, module IEHDVTOC 
determines whether it is to write an IPL 
record on the output volumes. If so, and 
if the IPL text is on external storage, the 
routine opens the appropriate data set and 
reads the text into main storage. ± 

If it is to write an IPL program, the 
routine constructs two IPL Bootstrap rec- 
ords and writes them to records 1 and 2 on 
track of each output volume. The IPL 
program itself is written on track 1 before 
the bootstrap records are written (if the 
devices are 2303s or 2311s) or on record 4 
of track 0, with the same channel program 
used to write the bootstrap records (if the 
devices are 2301s or 2314s). 



If no IPL program is to be written, 
module IEHDVTOC writes a program on record 
1 of track that will cause the computing 
system to enter the wait state if an 
attempt is made to execute the IPL proce- 
dure using that volume. The format of the 
records is shown in Figure 37. 



Whether it writes an IPL program or not, 
module IEHDVTOC constructs and writes a 
standard volume label and a VTOC. The 
standard volume label is written on record 
3 of track 0; it contains the volume serial 
provided by the user or (if none was pro- 
vided) the original volume serial. If an 
owner name has been supplied, the routine 
places it in the label; if not, the field, 
remains blank. The VTOC constructed and 
written by IEHDVTOC consists of a Format 4 
DSCB, a Format 5 DSCB, and enough dummy 
(Format 0) DSCBs to fill out the VTOC. 



Performing the Label Function 

When the label function is specified, the 
Control routine passes control to the Label 
routine (module IEHDLABL) . The Label rou- 
tine (Chart 36) replaces the volume serial 
and, optionally, the owner identification 
fields of the volume label. 
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Note: Rl for a non-IPL volume is a 24-byte record having the following 
format: 

PSW X'000600000000000F' 

CCW1 X'0300000000000000r (NOP) 

CCW2 X' 00000000000000000' (Dummy CCW) 

Rl for a volume that can be loaded contains a 24-byte IPL bootstrap 
record having the following format: 



PSW X' 0000000000000000' 
CCW1 X'06003A9860000060' 
CCW2 X'08003A9800000000' 



(Read Record 2) 
(Transfer to Record 2) 



R2 is always a 144-byte record having the following format: 



CCW1 X' 07003 AB840000006' 
CCW2 X'31003ABE40000005' 
CCW3 X'08003AA000000000' 
CCW4 X'0600000020000E29.' 
Seek X' 00000000000' 
Search X'0000000101 ' 
101 bytes of zeros for padding 



Seek IPL Track 
Search for IPL Record 
Repeat until found 
Read IPL Program 
Seek Address 
Search Address 



^-The IPL program may be supplied in the 
input stream (in which case it is in main 
storage when IEHDVTOC is entered) , it may 
be in a sequential data set, or it may be 
a member of a partitioned data set, e.g., 
member IEAIPL00 of SYS1.SAMPLIB. 



Figure 37. 



Format of Track 0, Records 
and 1 



When it is entered, the routine identi- 
fies the device to be labeled and verifies 
that the device is a direct access device. 
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It uses the RDJFCB macro instruction to 
read the JFCB into a buffer in the 
function-dependent area of the function 
block (Figure 38). It then uses the OPEN 
(type J) macro instruction to open the VTOC 
data set. 
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Figure 38. 



IEHDASDR Function Block — 
Label Area 



to read the JFCB into the function- 
dependent area of the function block 
(Figure 39) and open the VTOC data set. If 
the open is successful, the routine checks 
to see that the specified track is not 
track or does not contain system data 
such as a volume label or VTOC. 



CCHH of Specified Track 



RESERVED 
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Figure 39. 



IEHDASDR Function Block — 
GETALT Area 



The routine reads the volume label (the 
data portion of record 3 of track 0) by 
issuing an EXCP macro instruction. The 
initial request causes the special End-of- 
Extent appendage to be entered; the appen- 
dage changes the extent limits in the DEB 
to permit access to track 0, and the volume 
label is brought into main storage. 

When the I/O operation is complete, the 
Label routine stores the new volume serial 
and, if one is provided, it stores the 
owner name. It uses the EXCP macro 
instruction to write the label, uses the 
SVC 82 routine to place the new volume 
serial in the UCB, places a message in the 
output data set, and returns control to the 
Control routine. 

Performing the GETALT Function 

When the GETALT function is specified, the 
Control routine passes control to the 
GETALT routine (module IEHDGETA) . This 
routine (which is shown in Chart 37) uses 
the Alternate Track Assignment routine (SVC 
82) to assign an alternate track for the 
specified disk or data cell track. If the 
specified track is an assigned alternate 
track, another alternate track will be 
assigned in its place. No records will be 
transferred from the specified track to its 
alternate. If the specified track is an 
unused track in the alternate track area, 
however, no alternate will be assigned; the 
specified track will be flagged to prevent 
its future use. 

When module IEHDGETA is entered, it 
verifies that the specified volume is a 
disk or data cell volume, then uses the 
RDJFCB and OPEN (type J) macro instructions 



If the volume is not a disk or data cell 
volume, if the open was not successful, or 
if the specified track is either track or 
the first track of the VTOC , the routine 
places an error message in the message data 
set, terminates the performance of the 
function, and returns control to the Con-' 
trol routine. If the specified track is a 
part of the VTOC (other than the first 
track) , the routine issues a warning mes- 
sage and assigns an alternate track. 



If the specified track does not contain 
a volume label or VTOC, the Control routine 
places a message describing the specified 
track in the message data set, and issues 
SVC 82 to execute the Alternate Track Assi- 
gnment routine. 



On the return from the Alternate Track 
Assignment routine (SVC 82) the GETALT rou- 
tine places a message describing the 
alternate track assignment in the message 
data set, closes the VTOC data set, and 
returns control to the Control routine. 



IEHDASDR Service Routines 

There are several service routines used by 
the IEHDASDR program in the performance of 
its functions : 

• IEHDiXiSGB, the Message Builder routine, 
is entered with a pointer to the common 
work area and a number corresponding to 
the message. The routine selects the 
message from the message CSECT. 
(IEHDMSGS) , then moves the message to 
the output buffer in the common work 
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area. Certain messages contain "empty" 
areas that must be filled in by the 
caller of the Message Builder routine; 
when this is the case, the Message 
Builder routine loads a pointer to the 
empty area, and passes the pointer to 
its caller. 



dates of all unexpired data sets and 
continue processing. If the PURGE 
parameter is not specified, and if an 
unexpired data set is encountered, the 
function in terminated. 



IEHDPRINT, the Message Writer routine 
is entered with a pointer to the common 
work area (which contains the output 
buffer and the address of the SYSOUT 
DCB). The routine uses QSAM to write a 
header record at the beginning of each 
page, a copy of each control statement, 
completion messages, error messages, 
and (optionally) the contents of a 
direct access device. 



• IEHDDATE, the Date routine, is entered 
via a CALL macro instruction from the 
Message Writer routine. The Date rou- 
tine uses the TIME macro instruction to 
determine the date, and stores the date 
(in the form MM/DD/YY) in an 8-byte 
area furnished by the Message Writer 
routine. 



• IEHDSCAN, the Scan routine, is entered 
via a LINK macro instruction issued in 
the Control routine. It reads a con- 
trol statement (if necessary) and per- 
forms a syntax check on one field, then 
stores the result of the scan in a 1- 
byte field (SWITCHRD) in the common 
work area. On the return, it passes 
the control routine the length of the 
field and a pointer to the beginning 
address of the field. 



IGG019P8, the End-of -Extent Appendage 
routine is entered from the Input/ 
Output Supervisor. The routine modi- 
fies the extent limits and file masks 
in the DEBs for each direct access 
volume to be processed, to permit 
access to the entire volume. 



IGG019P9, the Abnormal-End Appendage 
routine, is entered from the Input/ 
Output Supervisor. It is used during 
performance of the Analysis function to 
bypass normal IOS Error routine proces- 
sing of Data Checks for all direct 
access devices. 



IGC0008B, the Alternate Track routine 
(SVC 82), is entered with a pointer to 
the parameter list shown in Figure 40. 
The routine has three basic functions: 

(1) It builds a DEE for handling new 
direct access volumes, 

(2) It assigns an alternate track for a 
specified (defective) track, and 

(3) It updates UCEs to reflect new 
volume serials or VTOC location 
changes. 



• IEHDPASS, the Password Protection rou- 
tine (Chart 38), is entered with: 1) 
an indication of the operation being 
performed, 2) an indication of whether 
the purge option was specified in the 
control statement, 3) a pointer to the 
function block, and 4) a pointer to a 
buffer area for reading DSCBs. It uses 
the Open or Scratch routine to check 
the password required for access to 
each security protected data set 
against the password supplied by the 
operator. If an incorrect password is 
issued, or if no password is issued, 
the routine returns a condition code to 
its caller, which then terminates the 
function. In addition, the Password 
Protection routine determines whether 
there are any data sets on the output 
volumes whose expiration dates have not 
passed. If so, and if the PURGE param- 
eter is specified, it gives the opera- 
tor the opportunity to terminate the 
function or to override the expiration 



Build DEB for New Volume 



Assign Alternate Track 



Update UCB 



8F 


UCB Address 


80 


DCB Address 




Function 


UCB Address 


CCHH of Defective Track 


80 


Ptr. to Alternate Track 
Information (GETALT) 




08 


UCB Address 


New Volume Serial (or Zero) 


80 


MBCCHHRof VTOC 
(if new volume) 



Figure 40. SVC 82 Parameter Lists 
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\chart 27. IEHDASDR Overall Flow 



f ENTRY J 



LINK OR ATTACH 
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Chart 28. IEHDASDR Control Routine (Part 1 of 2) 



****A1********* 

» 4 

* ENTRY * 
h 4 

*************** 



*****B1 ********** 

* IEHDASDR * 
*-*-*-*-*-*-*-*-* 

* INITIALIZING * 

* ROUTINE * 

* * 
***************** 



**D1******* 

» 4 

OPEN 

SYS IN AND 

SYSOUT 

► 4 

*********** 



*****EX*** ****** 4 

* IEHDPRNT + 

*-•-*-*-*-*-*-*-* 

* WRITE * 

* HEADER * 

* * 
***************** 



**** 

* 4 

* Gl * 

* * 
**** 



*-*-*-*-*- 



* ASSEMBLE * 

* ERROR * 

* MESSAGE * 
***************** 



*****)jl ********** 

* IEHDPRNT * 

4-4-4-4-*-*-*-*-* 

* WRITE * 

* ERROR * 

* MESSAGE * 
***************** 



*****J1********** 

* * 

* STORE * 

* RETURN * 

* CODE * 

* * 
***************** 



**** 

* ' * 

* B2 * 

* * 
**** 



***** 
*28 * 
* B2* 



ROUTINE (IEHDASDS) 



*****g2 ********** 

* IEHDSCAN * 
*-*-*-*-*-*-*-+-* 

* SCAN * 
♦CONTROL RECORD * 

* * 
***************** 



* 


SYNTAX 


* 


YES 




ERROR 




* .. 


* 


"*. .* 

*. .* 


* 


1 




* NO 

I 




**** 

* * 

* Gl * 

* * 
**** 












D2 *. 








* * 






* 


OPERATION 


* 


YES 




FIELD 




* 



.* VALID *. 
.4 FUNCTION 4. YES 
. SPECIFICATION. * 



*****D1 ********** 

* BUILD AND * **** 

* ENQUEUE * * * 
->*FUNCTION BLOCK * >* H2 * 



***************** 



**** 

* * 
->* Gl * 

* * 
**** 



*. .* 

* NO 

I **** 

* * 
l~>* Gl * 

* * 
**** 

.*. 

F3 *. 

.* ANY *. 

. * FUNCTION *. } 

. BLOCKS IN .*- 

* . QUEUE . * 

4. .4 

*■ .* 

* NO 

L**** 
*29 * 
>* D3 * 



*****E4 ******** * * 



***************** 



****F4 ********** 

4 

FIND * 

FIRST *- 

ENTRY * 

* 

**************** 



*****Gt ********** 



***************** 



— V 
***** 

♦ 29 * 

* Bl* 

* 4 



**** 

* 

* H2 *-> 

* * 

**** 

H2* 



**** 

* 4 
4 Gl 4 

* * 
**** **** 

* * 
->* B2 * 

* * 
**** 



->* H2 * 

4 4 

**** 



* 


. * ALL * . 

.* REQUIRED ♦ 

.KEYS PRESENT 

*. .* 

*. .* 

*. .* 

* YES 


NO 

* 


***4 
* 
->* Gl 

* 
4**4 


* 
* 
* 






V 
***** 
*29 * 
* Bl* 









*****JI) ********** 

* BUILD * 

* COPY BLOCK, * 

* CHAIN IT TO * 
♦FUNCTION BLOCK * 

* 4 
***************** 
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Chart 29. IEHDASDR Control Routine (Part 2 of 2) 



***** 

♦ 29 * 

* Bl* 



1 

* *. 
Bl *. 
.* IS *. 
.♦REQ'D RTNE *. YES 
». LOADED .* t 

*'.. ..-* 1 

*. .* V 



**** 

* * 

* B2 * 

* * 
**** 



**** 

* * 

* B3 * 

* * 
**** 



*****B3 ********** 



* NO 




**** 


1 




* 








* 


Gl 






* 




i 




**** 


.*. 








Cl *. 








.* IS * 








ANOTHER 


* 


NO 




RTNE 




* 





MORE 


*. NO 


* DEQUEUE * 
♦FUNCTION BLOCK * 


FUNCTION Q 


.* -, 


. ENTRIES 


* 1 




*. . * 


1 


* * 


*. .* 


v 


***************** 


* YES 

1 


***** 

*28 * 

* B2* 

* * 

* 







**** 

* * 

* B4 * 

* * 
**** 



STORAGE . 
*. , * 

* . .* 

YES 





* NO 


**•* 


1 


* * 




* Gl * 




* * 


1 


**** 


v 

**£l******* 




* DELETE * 




* PREVIOUS * 




* LOAD * 




* * 




* * 




*********** 




**** 






* * 






* Fl *-> 






* * 






**** 






V 




**F1******* 




* LOAD * 




* REQUIRED * 
* ROUTINE * 






* * 




* * 




*********** 




**** 






* * 






* Gl *-> 






* * 






**** 






V 




*****G1 ********** 




* NOTE 1 * 




*-*-*-*-*-*-*-*-* 




* EXECUTE * 




* FUNCTIONAL * 




* ROUTINE * 




******** 


********* 





ffiXT ENTRY 


* 


NO 


. * 


*. 


NO 


.♦CONCURRENT *. YES 


FOR SAME 






*. EOF SYSIN .* 




*. PROCESSING .* ^ 


FUNCTION 


* 


1 


*. . * 


1 


*. .* 


*. .* 




1 


*. .* 


1 


*. .* 


* . -* 




V 


* . .* 


V 


*. . * 


* YES 




**** 


* YES 


***** 


* NO 


1 




* * 


**** 




♦ 28 * 










* D5 * 


♦ 29 * 




* B2* 










* * 


* D3 *-> 




* * 






i 




**** 


* * 
**** 




* 












V 




V 


D2* '*. 






**D3******* 




*****D4 ********** 


* ALL * 






* * 




* IEHDMOGB * 


REQ'D 


* 


NO 


* * 




*-*-*-*-*-*-*-*-* 


DEVICES 




* , 


*FREEMAIN (WORK * 




* ASSEMBLE * 


AVAILABLE 


* 


1 


* AREA) * 




* MESSAGE * 


*. .* 




I 


* * 






*. .* 




V 


*********** 




***************** 


* YES 

1 




**** 

* * 

* D5 * 

* * 












**** 




**** 












* * 
















* Bl * 






" 




V 


* * 






**E3******* 




*****E4 ********** 


**** 






* * 

* CLOSE * 
* SYSIN AND * 

* SYSOUT * 

* * 




* IEHDPRNT * 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 








****** 


***** 




***************** 



*** 

i 



*****D5********** 

* * 

* FMD * 
*FIi<ST FUNCTION * 

* Q ENTRY * 

* * 
***************** 



* B3 
* 
**** 



****F3** ******* 

* * 

* RETURN * 

* * 
*************** 



NOTE 1: THE FUNCTIONAL ROUTINES ARE 
IEHDUMP 
IEHDREST 
IEHDANAL 
IEHDLABL 
IEHDGETA 



* B3 * 

* * 
**** 





♦ RETURN * 






.* 


CODE = 




NO 









* . 


"* 


"*. . *" 


* 


1 




* YES 

| 




**** 

* ♦ 

* B4 * 

* * 
**** 




.*. 








Jl *. 








* WAS * 






.* 


FUNCTION 


* 


YES 




COMPLETED 




* , 


"* 


*. .* 
♦. .♦ 


* 


I 




* NO 

J 




**** 

* * 

* B3 * 

* * 




♦ ♦** 




***♦ 




* * 








* B2 * 








* * 








**** 
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Chart 30. IEHDASDF Duirp Routine 



****A1********* 
k * 

•" ENTRY * 
i- * 

*************** 



**** 

* * 

* B2 * 

* 4 
**** 



**** 

* * 

* B3 * 

* * 
**** 



YES **** 
* D4 * 
**** 



**B2******* 



*********** 



**Q2******* 



**** 

* * 

* Bb * 

* * 
**** 



**C3******* 



*********** 



YES **** 

* A4 * 

* * 
**** 



* B5 * 

* * 
**** 



*********** 



*****£3********** 



* INFORMATION * 
***************** 



**F1******* 



*********** 



Y****G1********** 



***************** 



. * *. ins 

*. OUTPUT TO .* 1 

*. TAPE .* 

*- ■* J 
*. .* V 



**** 

* B2 * 

* * 
**** 



* OUTPUT *. YES 






TO A D/A .* t 






*. DEVICE .* 






*. .* I 




**** 


*. .* V 




* * 


* NO **** 




* A3 * 


1 * * 




* * 


1 * B3 * 




**** 


V * * 




1 


#*** **** 






* * 




1 


* B5 * 




V 


* * 


**** 


*H3***** 


**** 


* 





**** 

* B2 * 

♦ * 
*♦♦* 



. * TODEV *. KKt> 

A .* -, 

*D/A DEVICE.* 

"♦..*" V 



♦SET NO STORAGE * 

* 6 WAITING * 

* SWITCHES * 

* * 
***************** 



*****j3* ********* 

* * 

* * 
♦SET RETURN CODE+ 

* =11 * 

* ♦ 
***************** 



SYSOUT . * 1 

'♦. .♦' J 

♦ . .* V 



*+** 

* * 

* B5 * 

* * 
**** 



♦ CHECK * 

♦ PASSWORD * 

♦ PROTECTION * 
***************** 



**Bt*+***+* 

* * 

* READ * 
*(EXCP) FORMAT 5+ 

* DSCB * 

* * 
*********** 



*****Ct ********** 



**** 

* * 

* B5 * 

* * 
**** 



-*-*-*-* 



FROM 


DEV '*. NO 


* WRITE * 




* OPEN 


TYPE ♦ 


* SET 


UP ♦ 


A .* t 


*(EXCP) CONTROL * 




* J) OUTPUT D/A * 


♦TABLE OF UNUSED* 


D/A DEVICE. * 


* RECORD * 




* DEVICE * 


♦ TRACKS ♦ 


*. .* 


* * 




* * 


♦ ♦ 


♦ . .* V 


*********** 




*********** 


***************** 


* YES **** 


















* * 


**** 










**** 






* B5 * 


* * 










* * 






* * 


* D2 *-> 










♦ DM ♦-> 






**** 


* * 










* * 








**** V 








♦ ♦** 




V 






V 


V 


**D1******* 


D2 '*. 




**Q3******* 


*****D<4 ********** 


* 


.* *. 




* * 


♦ IEHDEXCP ♦ 


* 


.♦ADDITIONAL *. 


NO 


* READ * 


*-*-*-*-*-*-*-*-* 


GETMAIN FOR * 


* . OUTPUT . * 




♦(EXCP) FORMAT4 * 


♦ DUMP * 


BUF 


"ER * 


*. DEV] 


CCES .♦ 




* DS 


:b * 


* REQUESTED ♦ 



***************** 



**C5******* 

* * 
CLOSE 

INPUT AND 
OUTPUT 

♦ * 
*********** 



**D5******* 



*********** 



Et" ♦. 








*****£5 ********** 


.* *. 








* IEHDPRItfT * 


♦PROCESSING 


* 


NO 




*_*-*_*_*-*.-*-*-* 


COMPLETE 




* ., 




* ■ WRITE * 




* 


| 




* MESSAGE * 


♦ . .♦ 




1 




* * 


*. .* 




* 




***************** 


* YES 




**** 








1 




* 


* 


**** 








* JD 




* * 








* 


* 


* F5 *-> 




1 




**** 




* * 
**** 




^ 








V 


**£H******* 








*****F5* 


********* 



CLOSE 

INPUT AND 

OUTPUT 



**GH******* 



*********** 



*SET RETURN CODE* 

* =8 * 

* * 
***************** 



**** 

* * 

* K5 * 



**** 

* * 

* F5 * 

* * 
**** 



ASSEMBLE * 
MESSAGE * 

************** 



*-*-*-*- 



***************** 



[ **** 
* JS * 
**** 

I 

*****j5 ********** 

* * 

* * 
♦SET RETURN CODE* 

* =0 * 

* * 
***************** 



***+K5 ********* 
* * 

>* RETURN * 

A * * 

1 *************** 

** 



* Kb * 

* * 
**** 
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Chart 31. IEHDASDR EXCP Routine 



****hl********* 

► ENTRY * 
t * 

*************** 



**** 

* * 

* B2 * 

* * 
**** 



+ *** 

* * 

* B3 * 



**B2******* 

* WRITE * 
* DATA * 

* ON D/A VOLS * 
* * 

*********** 



+*B3******* 

* * 

* EXECUTE * 
♦READ COUNT/KEY 

* AND DATA * 

* CCS'S * 
*********** 



**** 
* BU * 



**£4******* 



*********** 



*****B5 ********* 

* SAVE 

* RETURN POlilT 

* Si,r 

* KET. CODE = 
* 
**************** 



**C1******* 

* LOAD * 
♦IEHDAOUT AND * 

* IEHDPRNT IF * 
* DUMPING TO * 

* SYSOUT * 
*********** 

**** 

* * 

* Dl ♦-> 

* 4 
*** + 

*****Z>1 ********** 

* * 

* BUILD * 

* READ COUNT * 

* CCW'S * 

* * 
***************** 

**** 

* * 

* El *-> 

**** 



.* THIS *. XEfci 

*. TRACK TO .* 1 

*.BE DUMPED.* 

*. .* I 

*. .* V 



* HI * 

* * 
**** 



** + * 

* D2 * 

* * 
**** 



**D2******* 

* * 

* EXECUTE 
* READ COUNT 

* CCW'S 

* * 
*********** 



*-*-*-*-*-*-*-*-* 

* UPDATE * 

* DEB * 

* EXTENTS * 
***************** 



C3 


* 




**C4******* 






* EXECUTE * 


.*" DUMPING '*. YES 


* WRITE/READ/ 


*. TO .*- 




♦COUNT KEY AND/ 


*. SYSOUT .* 


1 


* DATA CCW'S 


*. . * 


1 


* * 


*. .* 


V 


*********** 


* NO 


**** 










* * 










* JO * 










* * 










**** 












'T 


V 






*****D3********** 




DU *. 


* * 




. * *. 


* BUILD * 


YES 


.♦CONCURRENT * 


* WRITE/READ/ * 




*. OPERATIONS 


* COUNT KEY * 


} 


*. . * 


* AND DATA * 


J. 


*. 


.* 



**** 
♦ D5 * 



NO .* DUMPING ♦. 

r * . TO 

♦. D/A .♦ 



***************** 



.* DUMPING *. YES 



**E4****** 



♦ ****i,5 ********* 



**** 

* Fl *-> 

* * 
**** 

Fl" 



**** 

* D2 * 

* * 
**** 



TO .* 1 * ML1* i) AT *<■ 1 * r\JKmt±l ** * 

*. D/A .* * Clt AND J3 * * DSCB'S * 

*..*[* * * * 

*„ .* V *********** ] ***************** 

* NO **** **** 



* B<t * 
l * 

**** 



DUMPING *. YES 



*. TO .* •, *. OPERATIONS .* -i 

*. D/A .♦ *. .* 

*. .* I *. .* I 

*. .* V *. .* V 



**F3******* 

* WRITE * 

* (EXCP) * 
♦ CCW RECORD * 

♦ TO TAPE(S) * 

* * 
*********** 



*****FH** ******** 

* * 

* UPDATE * 

* TRACK * 

* ADDRESS * 

* * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



**** 

* * 

* B5 * 



*****F5 ********** 
♦IGC0008B * 

*-*-*-*-*-*-*-*-* 
* POST UCB'S * 
(IF CPYVOLID * 



**** 
* G5 *-> 



**G1******* 

* WRITE * 

* (EXCP) * 
♦CCW'S AND DATA * 

* TO TAPE(S) ♦ 

* ♦ 
*********** 

**** 

* 4 

* HI *-> 

* 4 
**** 

**H1******* 

* * 

* WAIT 

* EXCP AT 

* Gl OR B2 

* * 
*********** 

**** 

* * 
+ Jl *-> 

* * 
**** 

*****J1 ********** 

* * 

* UPDATE * 

* TRACK * 

* ADDRESS * 

* * 
***************** 



**G2**^*** 



*********** 



. OPERATIONS .* -i 



♦ ♦♦♦ 

* * 

* B5 ♦ 

* * 
**** 



. * MORE * . YEti 

*. THAN ONE .* n 

*. RECORD .* I 

I 



**** 

* * 

* B3 * 

* * 
**** 



.♦ DUMPING 



► . TO . ♦ 1 

♦. SYSOUT .♦ 

1 



**H3******* 

* WAIT * 

* EXCP'S AT * 

* B3 AND F3 * 
* * 

*********** 



**J3******* 

* WRITE * 

* (EXCP) 

* DATA TO 

* TAPE(S) 

* * 
*********** 



**** 

* * 

* Dl * 

* * 
**** 



**** 
* 

* D5 * ♦ 
t * * 

**** * 



**************** 
**** 



**** 

****ft5 ********* 

* RETURN * 

* * 
*************** 



**J4******* 



******** 



**** 

* * 

* K2 *-> 

* * 
**** 



*****K2 ********** 
♦IEHDAOUT * 

*-*-*-*-*-*-*-*-* 

* FORMAT * 

* AND PRINT * 

* TRACK * 
***************** 



**** 

* * 

* Fl * 

* * 
**** 



***♦ 

* * 

* Kb * 

* * 
**** 



**** 

* * 

* Et * 

* * 
**** 



**** 

* * 

* K2 * 

* * 
**** 



♦NO **** 

l **** * * 

I * * * D5 * 

l~>* El * * * 

* * **** 

**•* 



->* Jl * 

* * 

*♦♦♦ 



NOTE 1: AT SUBSEQUENT ENTRIES, GO 
TO RETURN POINT SAVED 
IN BLOCK B5. 



♦♦K5+++++++ 

* * 

K EXCP * 

WRITE * 
* TRAILER * 

♦ RECORD ♦ 
♦♦♦******** 

**** 

* * 
->* G5 * 

* * 
**** 
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Chart 32. IEHDASDR Restore Routine 



****Al********* 

t * 

* ENTRY + 

*************** 



**** 

Y * 

* rj3 * 
t * 
**** 



t****g2 ********** 



INITIAL *. NO 


* SAT 


/£ * 


ENTRY . * 


* ALTERNATE TRK * 


.* 


* INFORMATION * 


*- . * 


* * 


*- . * 


***************** 


* YES 

1 


**** 

* * 

* C2 *-> 

* * 
**** 




V NOTE 1 


V 


**C1******* 


**C2******* 




* EXCP * 


GETMAIN * 


* READ CTL. * 


FOR * 


♦AND TRK. IMAGE * 


BUFFERS * 


* RCDS. INTO * 


* 


* BUF 


-. 1 * 



*********** 



.* VOLUME *. NO 
♦SPECI FICATIONS . * — 
*. VALID .* 



**F1******* 

* OPEN * 
INPUT TAPE 

AND READ 
LIMITS 

* RCD * 
*********** 



VALID 

RESTORE 
TAPE 



YES **** 

* * 

* Kt * 

* * 
**** 



**H1******* 

* OPEN * 

* (TYPE=J) 
* OUTPUT 

* VOLUMES(S) 

* * 
*********** 



* CHECK * 

* PASSWORD * 

* PROTECTION * 
***************** 



**K1******* 

* EXCP * 
♦READ FORMAT H* 

* DSCB'S FROM ♦ 
♦ OUTPUT * 

♦ VOLUME (S) ♦ 
*********** 



*********** 



♦ ♦D2^*"" + 

WAIT FOR 

READ 

BUFFER 1 

t * 

*********** 



***************** 



**F2******* 

* ♦ 

♦ EXCP ♦ 
♦WRITE BUFFER 1 ♦ 

♦ TO OUTPUT ♦ 

♦ VOLUME(S) ♦ 
*********** 



«*H2******* 

♦ EXCP ♦ 

♦ READ CTL. ♦ 
♦AND TRK. IMAGE ♦ 

♦ RCDS. TO ♦ 

♦ BUFFER 2 ♦ 
*********** 



B3 


*, 




**f;4******* 


. ♦ ♦. 




♦ EXCP 


TWO ♦. 


NO 


♦ READ 


BUFFERS . ♦ 




♦ TRAILER 


? .♦ 


1 


♦ LABEL 


♦. . ♦ 


1 




♦ . .♦ 


V 


*********** 


♦ YES 


**** 










* * 










+ C2 ♦ 










* ♦ 










**** 












V 


V 






**C3******+ 




cu ♦. 


♦ 




. ♦ ♦ . 


WAIT ♦ 




.♦ IS 


FOR READ ♦ 




♦. RESTORE 


BUFFER 2 ♦ 




♦.COMPLETE . 



*********** 



INPUT .♦ 1 

*"•■ ■*"* l 

♦. .* V 



V 

*****U 4*******4** 

♦ UPDATE ♦ 
♦FORMAT 4 DSCB'S^ 

♦ FOR OUTPUT * 

♦ VOLUME (S) ♦ 

♦ ♦ 
***************** 



**Cb******* 

* 1 
* 

->♦ EOV 

* 4 
*********** 



♦ B3 ♦ 

* * 
**** 







♦ NO ♦*** 






** 






* * 












♦ BU ♦ 






2 ♦-> 






* * 






* 






**** 






** 








V 


V 


V 


.♦ . 


♦ *E2 + + + ^^++++ 


*****£3********** 


E« ♦. 


SET UP ♦ 


♦ SET UP ♦ 


.♦ ♦ 


CCW'S FOR ♦ 


♦ CCW ■ S FOR ♦ 


.♦ CPYVOLID 


OUTPUT ♦ 


♦ OUTPUT ♦ 


♦ . SPECIFIED 


DEV] 


[CES ♦ 


♦ DEV 


CCES ♦ 


♦ . 





♦ *** 
* ♦ 

: E5 :-i 
**** i 



*. PROCESSING .* -I 

*■*■*. .♦•*'* I 



**K2******* 

* WAIT ♦ 

FOR 

WRITE 

BUFFER 1 

» * 

*********** 



**** 

♦ * 

♦ B3 ♦ 

♦ * 
**** 



***************** 



**F3******* 

* * 

♦ EXCP ♦ 
'WRITE BUFFER 2 ♦ 

♦ TO OUTPUT ♦ 

♦ VOLUME (S) ♦ 
*********** 



♦ ♦G3"^" + 

♦ EXCP ♦ 

♦ READ CTL. ♦ 
♦AND TRK. IMAGE ♦ 

♦ RCDS. TO ♦ 

♦ BUFFER 2 ♦ 
*********** 



♦ NO 


**** 






* * 






♦ K5 ♦ 






♦ ♦ 






*♦** 


V 




♦♦J3******* 




♦ WAIT ♦ 




♦ FOR READ ♦ 




BUF. X AND ♦ 




♦WRITE BUF. 2 ♦ 




♦ ♦ 




****** 


***** 





* NO *+** 

i : B4 : 

**** **** 
* * 

♦ E2 ♦ 

* * 
**** 



***************** 

**** 

♦ * 

♦ G1 ♦->( 

♦ * 
♦ ♦♦* 



***************** 



*-*-*-*- 



***************** 



*****J1|********** 

* * 

* SET ♦ 

* RETURN ♦ 

* CODE ♦ 

* ♦ 
***************** 

♦ *♦* 



► Kt ♦-> 

♦ ♦** 



♦ FOR BUFFERS ♦ 

► AND * 

♦ CLOSE DCB'S ♦ 

*********** 



*****£;b ♦♦♦♦♦♦+♦♦♦ 

♦ SET ♦ 

♦ NO STORAGE * 

♦ AND WAITING + 

♦ SWITCHES ♦ 
+ * 
***************** 



*****F5 ********** 



*********** 



NOTE 1: AT SUBSEQUENT 
E.>iTRIES GO TO RETURN 
POINT SAVED ON EXIT. THE 
POSSIBLE RETURN POINTS 
ARE AT BLOCKS K2 AND J3 . 



****Y.5 ********* 



l *************** 
**** 



♦ K5 ♦ 

* ♦ 
♦ *** 
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Chart 33. IEHDASDR Analysis Routine 



****Al****** 
t 
* ENTRY 

************ 



**** 

* * 

* H3 * 

* * 
**** 



*****C1 ********** 
*NOTE 1 * 

*-*-*-*-*-*-*-*-* 

* * 

* INITIALIZE * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



***** £2 ******** 

* UPDATE CCW'S 

* PER FLAGTEST 



* FUNCTION CODE * 
***************** 



*****C2 ********** 

* INITIALIZE * 

* PASS COUNT * 

* AND * 

* TRACK ADDRESS * 

* * 
***************** 

**** 



**ii3******* 
* WAIT 
FOR AA I/O 
REQUEST TO 

COMPLETE 
*********** 



— *. TYPE .* n 



NONE **** 

* * 

* B4 * 

* 4 
**** 



Dl 


* . 






**D2******* 


. * *. 








.* NEW *. NO 




* 


*. VOLUME(S) .* 






* EXCP 


*. . * 


1 






*. .* 


1 




* 


*. .* 


V 




*********** 


* YES 


**** 












* 


* 










* J2 












* 


* 










**** 
















V 


v 






>* . 


*****E1 ********** 






E2 *. 


♦IGC008B * 






. * *. 








. * MORE 
* . VOLUMES 


* BUILD DEB * 






* FOR EACH * 






* . 


* VOLUME * 






* . .* 


***************** 






*. . * 










* NO 


**** 








| 


* * 










* Fl *-> 










* * 
**** \ 


' 






J 





**** 

* * 

* D2 * 



WAS *. 
TRACK 
FLAGGED .* 



**** 

* * 
+ D2 * 

* * 
**** 



**** 
* * 

l B5 * 

**** 



. * FIRST 
ERROR ON 
*.TfiIS PASS. 



*****C 4** ******** 

* * 

* INITIALIZE * 

* TO RETRY * 

* 10 TIMES * 

* * 
***************** 



**** 

* * 

* D2 * 

* * 
**** 



*****£ 4********** 
♦IEHDMSGB 1 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* BAD TRACK * 

* MESSAGE * 
***************** 



*****Bb********+* 
►IEHDKSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 
► MESS AG*. * 

* * 
***************** 



* WRITE 

* MESSAGE 
**************** 



*****U5 ********** 

* * 

* SEI * 

* RETURN * 

* CODE * 

* * 
***************** 



**E5******* 



********** 



* OTHER *. 
.I/O REQUESTS*. YES 
OUTSTANDING . *- 



*. VOLUMES .* , *. PROCESSING .* ■, *. OUTSTANDING .* , 

*•*. .*■* 1 %. .*"* *■*. .*■* 

*„„* v *-.* V *..* V 



*-*-*-*-*-*-*-*-* 

♦ANALYZE/FORMAT * 

* DATA CELL * 

* VOLUMES * 
***************** 



**** 

*****G2 ********** 

* * 

* STORE * 

* RETURN * 

* POINT * 

* * 
***************** 



****ri2 ********* 

* * 

* RETURN * 

* 4 

*************** 



* NO 


**** 








| 










* G2 * 








* * 






I 


**** 






. *. 








Jl *. 




**J2******* 




.* WAS * 




* RDJFCB * 




.* OPERATION 


*. YES 


* AND * 




*. SUCCESSFUL 


.* -, 


* OPEN <TYPE=J) *< — , 


*. 


* 


* EACH * 




*. . * 


1 


* VOLUME * 




*. .* 


V 


*********** 




* NO 

I 


**** 

* * 

* J3 * 

* * 






. **** 

* J2 * 

* * 


**** 


**** 






**** 


* * 










* B5 * 




7 




* * 




*****K2********** 




**** 




♦IEHDPASS * 
*-*-*-*-*-*-*-*-* 

* CHECK * 

* PASSWORD * 








* PROTEC 


:tion * 





************ 



**** 
* 
Fl * 
* 

**** 



.* MORE *. 
. * PASSES ON 
. THIS TRACK 
*. REQ'D . 



. * MORE 


TRACKS 


*. 




* . . * 


* N 


**** 








J3 *-> 








**** 





* D2 * 

* * 
**** 



♦LABEL, AND VTOC* 
* RECORDS 
************** 



**** 

* * 

* B5 * 

* * 
**** 



-*_*=.*-*-*_* 



***************** 
NOTE 1 



*****£{;********** 



* ASSIGN ALT. * 

* TRK. (DISK * 

* VOLS. ONLY) * 
***************** 



*_*_*- 

* ASSEMBLE * 

* ALT. TRACK * 

* MESSAGE * 
***************** 



***************** 



**** 

* * 

* F3 * 



****J."5******** 

* 

* RETURN 
************** 



CONVERTING EXTENTS TO CCtlH 
FORMAT AND VALIDATING 
EXTENTS, AND REQUESTING 
MAIN STORAGE FOR A BUFFER. 
IF AN ERROR IS FOUnD 
BRANCH TO Bb. 
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Chart 34. IEHDASDR VTOc Routine 



****A1********* 

¥ * 

► ENTRY * 

*************** 



**** 

* * 

* B2 * 

* * 
**** 



. * THE TEXT 

IN MAIN 

*. STORAGE 



*. IEb 



**D1******* 

♦ OPEN * 
DATA SET 

CONTAINING 
I PL TEXT 

* 4 
*********** 



**F1****** 
* READ 

* IPL TEXT 
► (8 0-BYTE 

* RCDS . ) 
* 

********** 

**** 



**** 

4****G1 ********** 

* BUILD * 

* IPL RECORD * 

* FOR RECORD 1 * 

* OF TRACK * 

* * 
***************** 



**** 

* 
C2 * 

**** 



* Jl * 

* * 
**** 



*****jl ********** 

* * 

* BUILD CCW'S * 

* TO WRITE * 

* RCD'S 1-3 * 

* + 
***************** 



**** 

* * 

* G2 * 

* * 
**** 



*****B2 ********* 

* BUILD 

* NON IPL 
>* RCD 1 FOR 

* TRACK 
* 
**************** 

**** 



**** 

*****C2 ********** 

* * 

* BUILD * 
t RECORD 2 * 

* FOR TRACK * 

* * 
***************** 



*****D2********** 
♦STORE VTOC PTR,* 

* VOL SERIAL * 

* AND OWNER ID * 

* IN VOL LABEL * 

* * 
***************** 



IPL' ABLE 
2301 OR 
. 2314 



*. NU 

"■•"1 



*****P2 ********** 

* BUILD CCW'S * 

* TO WRITE * 

* RCD'S 1-3 AND * 

* IPL TEXT RCD * 

* * 
***************** 

**** 

* * 

* G2 *-> 

* 4 

**** 

**G2******* 
* 

* WRITE 

* TRACK OF 

* ALL COPIES 
* 

*********** 



* WAIT 

* COMPLETION 

* OF I/O 

* * 

*********** 



**** 

* * 

* B3 * 

* * 
*•** 



IPL' ABLE 
2311 OR 
. 2303 



*****£ 3** ******** 



♦FORMAT DSCB'S* 
* * 

***************** 



* D3 *-> 

* * 
**** 



**D3******* 
* WRITE ♦ 

* VTOC TRACK 
* OF ALL 

* COPIES 



**B4******* 

* WRITE * 

* IPL TEXT ON 
* TRACK 1 OF 

* ALL COPIES 

* * 
*********** 



**C4******* 

* * 

* WAIT * 
♦FOR COMPLE1ION 

* OF I/O * 

* * 
*********** 



*********** 



ERRORS .* i 

*%. .*•* 1 

*. .* V 



* NO **** 

* * 

* El * 

* * 
**** 



. * THIS THE *. YES 

. LAST VTOC .* , 

*. TRACK . * 



*****H3********** 

* BUILD A * 

* FULL TRACK * 

* OF FORMAT * 

* DSCB'S * 

* * 
***************** 



***************** 



* WRITE * 

* ERROR * 

* MSG. * 
***************** 



*****G4 ********** 



***************** 



**** n 4 ********* 
t * 

► RETURN * 

► * 
*************** 



*****B5 ********** 
♦IEHDMSGB * 

*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* ERROR * 

* MSG. * 
***************** 



* WRITE 

* ERROR 

* MSG. 
*************** 



* 


* 


*. 


.* 








**** 


*********** 


♦. . ♦ 








* * 






* YES 








* L5 * 






**** 










* * 






* * 










***♦ 






* Et ♦-> 










I 






* * 
















**** 










I 


V 


V 








V NOTE 1 


**£3******* 


**** *EU********** 


*****kb********** 


* * 


♦IEHDMSGB 




* 


* 


* 


* WAIT * 


*-*-*-*-*-*-*- 


* 


-* 




SET ♦ 


♦FOR COMPLETION ♦ 


* BUILD 




* 


* 


RETURN CODE ♦ 


♦ OF I/O ♦ 


* ERROR 




* 




= ♦ 


* 


♦ 


♦ MS( 






* 


♦ 


* 



***************** 



****F5 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



NOTE 1 IF IPL TEXT DATA SET OPEN IS 
NOT OK, A RETURN CODE OF 8, 
NOT 0, IS SET. 
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Chart 35. IEHDASDR Data Cell Analysis Routine 



****A1 ********* 

* * 

* ENTRY * 

* * 
*************** 



*****£!********** 

* * 

* SET UP * 

* CCW'S IN * 
•FUNCTION BLOCK * 

* * 
***************** 



*****C1 ********** 

* * 

* SET UP * 

* FOR * 

* FIRST ALT * 

* TRACK * 
***************** 



**** 

* * 

* Dl *-> 



* WRITE * 

* ALL TRACKS * 

* OF A * 

* CYLINDER * 
***************** 



* READ * 

* ALL TRACKS OF * 

* CYLINDER * 

* * 
***************** 



**** 

* * 

* B2 * 
» * 

**** 



* PERFORM * 

* HEAD * 

* POSITION * 

* CHECK * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



* PERFORM * 

* STRIP * 

* TEST * 

* * 
***************** 



* PERFORM * 

* SUBCELL * 

* TEST * 

* * 
***************** 



.* 


*. 


. * 


* 








****CH********* 


END OF *. YES 


.* END 


* 


NO 


* 


SUBCELL .* , 


*. OF 




*. 




* RETURN 


.* ) 


♦ALTERNATES. 


* 




1 


* 


*. .* 1 


* . .* 






1 


*************** 


*. .* V 


*. .* 






\> 




* NO **** 


* YES 






**** 






* * 










* * 






* B3 * 










* F3 * 






* * 










* * 






**** 










**** 




" 


■■' 










**D2********** 


*****D3**** ****** 






* 


* 




* 






MODIFY * 


* SET UP FOR 




* 






FOR NEXT * 


* FIRST PRIMARY 


* 






STI 


UP * 


* TR2 


^CK 




* 







***************** 



**** 

* * 

* Dl * 

* * 
**** 



***************** 



**** 

* * 

* Dl * 

* * 
**** 

**** 

* * 

* F3 * 

* * 
**** 



.* END *. YES 


*. OF .* ^ 


*. STRIP .* 


*. .* I 


*. .* i/ 


* NO **** 




* * 




* B2 * 




* + 




**** 


■ 


' 


*****G1********** 


* * 


* * 


* MODIFY FOR * 


* NEXT CI 


fLINDER * 



***************** 



**** 

* * 

* Dl * 

* * 
**** 



. * END OF *. YES 

► . PRIMAR-1 . * ^ 

*. TRACKS .* 



*****G3********** 



***************** 



**** 

* Dl * 

* * 
**** 
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Chart 36. IEHDASDR Label Routine 



****A2 ********* 

* 4 

* ENTRY * 

* 4 
*************** 



* B3 ♦ 

* * 
**** 



*****B3********** 



.* VALID *. 






* 




. * DEVICE * . 


NO 




* UPDATE 


.SPECIFICATION.* 






* SERIAL AND 


* . .* 






* OWNER FIELDS 


*. . * 


J 




* 


*. . * 


V 




*************** 


* YES 


**** 












* 












* DU 


* 










* 


* 










4**4 








• 


' 






11 


**C2******* 






**C3******* 


* * 






* * 


* READ IN * 






* WRITE 


JFCB * 






* (EXCP) 


* (RDJFCB) * 






* NEW 


* * 






*VOL. LABEL * 


***** 


****** 






***** 


****** 



* DU * 

* * 
**** 



*****Q2 ********** 

* * 

* MODIFY * 

* DATA SET * 

* NAME FIELD * 

* * 
***************** 



**D3******* 

* * 
WAIT 

COMPLETION 
OF EXCP 

* * 
*********** 



***#*£) 4********** 
♦IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE ' * 

* ERROR * 

* MESSAGE * 
***************** 



**E2******* 



*********** 



.* *. lit; 
*. ERRORS .* n 

■"*■ ■*"* l 

*. .* V 



*****£ 4*********4 
♦IEhDPRNT * 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 



**** 

* * 

* DU * 

* * 
**** 



* READ * 
* (EXCP) 4 

* VOL. LABEL * 
* * 

*********** 



*****P3********** 
♦IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* COMPLETION * 

* MESSAGE * 
***************** 



*+***F1 ********** 



***************** 



*****G2 ********** 
♦IGG019P8 * 
*-*-*-*-*-*-*_*-* 
* MODIFY * 



-*-*-*-*-*-*-* 



***************** 



***************** 



**H2******* 

* * 

* WAIT * 
* COMPLETION OF * 

* EXCP * 

* * 
*********** 



*****H3 ********** 



4**************** 



* NO **+* 
I * * 

* Dt * 
V * * 

**** **** 

* * 

* B3 * 



**J3******* 

4 * 

CLOSE 

4 * 

*********** 



****K3 ********* 
4 * 

4 RETURN * 
4 * 

*************** 
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Chart 37. IEHDASDR GETALT Routine 



****A1********* 

t * 

► ENTRY * 



*************** 




**** 








* * 








* B2 * 








* * 








**** 
I 


\ 


' 




1 


.*. 




V 


Bl *. 




*****B2 ********** 


.* *. 




*IGC008B * 


. * VALID * . 


NO 


*-*-*-*-*-*-*-*-* 


DEVICE .* 




* ASSIGN * 


*. SPEC. .* 


1 


* ALTERNATE * 


*. .* 


1 


* TRACK * 


*. • * 


V 


***************** 


* YES 


**** 










* * 










* B3 * 










* * 










**** 












'? 


V 




.*. 


**C1******* 




C2 *. 


* * 




.* *. 


* READ IN * 




.♦ASSIGNMENT *. 


JFCB * 




*. SUCCESSFUL .* 


* (RDJJ 


x:b) * 




*. 


.* 





**** 

* * 

* B3 * 

* * 
**** 




i 

*****B3 ********** 
♦IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* ERROR * 

* MESSAGE * 



*********** 



****D1********** 



**************** 



**E1******* 



*********** 



.* BAD TRACK *. 

'.FIRST TRK OF . 

*. VTOC OR .* 

*.TRK 0.* 



BAD TRACK 
ANOTHER 
. VTOC 
*. TRK .* 



-*-*-*-*-*-*-* 

* ASSEMBLE TRK. * 

* DESCRIPTION * 

* MESSAGE * 
***************** 



*-*-*-*- 



**************** 



**** 

* * 

* B2 * 

* * 
**** 



*****D2********** 
* IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* ALT. TRACK * 

* MESSAGE * 
***************** 



*****E2 ********** 
♦IEHDPRNT * 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 



**F2******* 

* * 

CLOSE 

* * 
*********** 



*****G2 ********** 

* * 

* SET * 

* RETURN CODE * 

* =0 * 

* * 
***************** 



*****H2** ******** 

* IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* COMPLETION * 

* MESSAGE * 
***************** 



*****j2********** 
♦IEHDPRNT * 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 

**** 

* * 

* K2 *-> 

* * 
**** 

**+*K2 ********* 

* * 

* RETURN * 

* * 
*************** 



***************** 



*****C3 ********** 
♦IEHDPRNT * 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 



*****D3********** 



***************** 



**** 

* * 

* K2 * 

* * 
**** 



**** 

* * 

* B4 ♦ 

* * 
**** 



*****B4********** 
♦IEHDMSGB * 
*-*-*-*-*-*-*-*-* 

* ASSEMBLE * 

* WRITING * 

* MESSAGE * 
***************** 



*-*-*-*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 
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Chart 38. IEHDASDR Password Protection Routine 



****A1********* 

► ENTRY * 

* * 

*************** 



**** 

* * 

* B2 ♦ 

* * 
**** 



. * FORMAT ♦ . YEb 

*. OR .* ■• 

*. RESTORE .* 

*■ •* 1 

*. .* V 



.* OUTPUT *. NO 
► . TO . * 

* . TAPE . * 



**** 

* * 

* D3 ♦ 

* * 
**** 



.* IS *. 



.♦OUTPUT *. 



*. DUMP .* 1 *. SWITCH .* , 

*. .♦ *. ON .* 

*• ■* 1 *• •* 1 

*. .* V *. .* V 



C4 •. 
* 
OUTPUT 



YES **** 

* * 

* El * 

* * 

♦ ♦♦* 



**** 

• E5 + 

» • 

**** 



*. PRINTER .* 

I 



NOTE 
**D1******* 
► GETMAIN * 
FOR * 
DSNAME * 
TABLE * 
* * 

*********** 



*****E1********** 
♦BUILD TABLE OF ♦ 
+ DDNAMES FROM ♦ 

♦ TIOT AND ♦ 
+ DSNAMES FROM ♦ 

♦ JFCB'S ♦ 
***************** 



**F1******* 

* READ ♦ 

♦ (EXCP) 

* FROM DD 

♦ FORMAT 1 

♦ DSCB'S ♦ 
*********** 



.* IS ♦. 

TAPE 

LABEL 
. VALID 



'""I 



♦ ♦♦♦ 

♦ ♦ 

♦ E5 ♦ 

♦ * 
**** 



ALL 

IN 

TBL 



. ♦ ♦. NOT IN 

PROTECTED ♦. TABLE 

DATA . ♦ -i 



r ♦ . DATA . ♦ -i 

♦. SETS .♦ 

♦ . .♦ I 
*. .♦ V 



♦ NONE ♦♦♦♦ 
I **•* * * 
I ♦ ♦ ♦ F2 ♦ 
<-->* B2 ♦ ♦ ♦ 



(TYPE=J> 

PROTECTED 

DATA 

* SETS ♦ 

*********** 







♦ . 


NO 


OPEN 




♦ 1 


OK 


♦ " 


1 


♦ - . ♦ 




1 


♦ . .♦ 




V 


♦ YES 




♦ ♦♦♦ 








♦ ♦ 








♦ F2 ♦ 








* * 








♦ ♦♦♦ 


'' 






*K1»****** 






CLOSE 


♦ 




AND SET 


♦ 




SECURITY 




♦ 


SW. 


ON 


♦ 





♦♦E2+*+++++ 

♦ FREEMAIN ♦ 

♦ FOR ♦ 

♦ DSNAME 

♦ TABLE ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦♦♦ 

♦ ♦ 

♦ F2 ♦-> 

♦ ♦ 
♦♦♦♦ 

*****Y2********** 



***************** 



*****Q2********** 

♦IEHDMSGB ♦ 
*-*-*-*-*-*-*-*-* 

♦ ASSEMBLE ♦ 

♦ MESSAGE ♦ 

♦ ♦ 
********* ******** 



*****H2 ********* 

♦IEHDPRNT 

*-*-*-*-*-*-•-*- 

♦ WRITE 

♦ MESSAGE 
* 
**************** 



****J2 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



*********** 

I 

**** 

* * 

* B2 ♦ 

* ♦ 
**♦* 



**** 

* * 

* D3 ♦-> 

* * 
**** 



♦♦D3+*++^" 

♦ READ ♦ 
<EXCP) 

FORMAT 1 
DSCB'S 

♦ * 
*********** 



»*E3******* 

♦ WTOR ♦ 
UNEXPIRED 
DATA SETS 

MESSAGE 

♦ * 
*********** 



♦ Eb ♦ 

* * 
♦ ♦** 



REPLY = U .* , 


(USE) .♦ 


*- ■* 1 


♦ . .♦ V 


♦ YES ♦*♦* 




* ♦ 




* F2 ♦ 




* * 




**** 


i' 


**G3******* 


SCRATCH ♦ 
(SVC 29) ♦ 


PROTECTED ♦ 


DATA 


SETS ♦ 



*♦♦♦ 

♦ * 

♦ EU ♦-> 

♦ ♦ 
**** 

*****££l********** 



***************** 



****FH********* 

* * 

* RETURN ♦ 

* * 
*************** 



**♦♦ 

* * 

* E5 ♦ 

* ♦ 
♦ ♦** 

I 

*****f,5 ********** 

♦ * 

♦ SET ♦ 

♦ RETURN CODE * 

♦ =0 ♦ 

♦ * 
***************** 



♦♦********♦ 



. » * . NO 

♦ . SCRATCH .♦ •, 

*. OK .♦ 

*- ■* J. 
♦ . .♦ V 



♦ ♦♦* 

* * 

* F2 ♦ 

* * 
***• 



NOTE - CONDITIONAL GETMAIN. IF 

MAIN STORAGE NOT AVAILABLE, 
SET RETURN CODE = « AND 
RETURN. 



.♦ADDITIONAL ♦. NO 

♦ . OUTPUT .♦ t 

♦ . VOLUMES .♦ 

I 



I 



YES ♦*** 

* * 

* E5 ♦ 

* * 
**** *♦** 

* * 

* D3 ♦ 

* * 
**** 
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Chart 39. IEHDASDR SVC 82 Routine 



****A1*4******* 

» 4 

► ENTRY * 

► 4 
*************** 



**** 
« * 

• B2 * 

* * 
**** 



•♦*♦ 

• • 

• B3 * 

• * 



.* *. YES 
*. NEW VOL .* t 

*'*- -•'• l 

*. .* v 



**B2******* 

* • 

* READ (EXCP) * 
* HA OF NEXT « 

* AVAIL. ALT. * 

* * 
*********** 



•*B3******* 

* .WRITE * 

* (EXCP) 

► UPDATED 

* FORMAT 4 

* DSCB * 
*********** 



*****B4********** 

* BUILD * 

* DEB IN * 

* PROTECTED * 

* STORAGE * 

* * 
***************** 



i 



**#* 

* * 

* B« * 

* * 



CI 
* 

POST 



OCB .* 1 *. TRACK .* 1 

*. REQUEST .* I *. „* I 

"*. .*" V **. .*" V 



I 



**** 

* * 

* DU * 

* • 
**** 



**** 

* • 

* Gl * 

* • 
• *•* 



GETALT .* 1 

*. .* I 

*. .* I 
*. .* V 



• *** 

* * 

* Gl * 

* * 
**** 



**E1******* 

► READ * 
(EXCP) 

FORMAT H 
DSCB 

► ," * 
*********** 



**D2******* 

* WRITE * 

* (EXCP) 

* HA AND RO ON 

* PRT. TRK. 

* * 
*********** 

* 4 

* E2 *->[ 

* * 
*•** 

.*. 
E2 *. 
.* *. 
.* *. YES 
♦.UNCORRECTABLE.* i 

* . ERROR .♦ I 



♦ . .* 
*. „♦ 
* NO 
**** 

* ♦ 
4- D3 *-> 

**** 

*****D3 ********** 

* 4i 

* SET * 

* RETURN CODE *< 

* = * 

* * 
****•*****••**••* 

**** 

4i E3 ♦-> 

**** 

****E3********* 

* 4i 

* RETURN * 

* * 
*************** 



**** 

* * 

* FU ♦ 

* • 
**** 



*****DI|********** 

* PLACE SERIAL * 

* NOS. S TTR * 
.* OF VTOC IN * 

* UCBS IF * 

* NECESSARY * 
***************** 



**** 

► * 

► Gl * 

► * 
**•• 



Fl *. 
.* *. 

.♦ ANY *. YES 

*. ERRORS .♦ 1 

♦ . .♦ 

*• -* 1 

♦. .♦ V 



.*. 



**** 

* * 

4- Gl *-> 

• 4< 
• •** 



• *** 

* * 

* F« * 

* * 

• ••* 



F2 
.* IS +. 

► SPECIFIED ♦ . YES 
TRACK AN .♦ 1 

► .ASSIGNED .♦ 

♦ . ALT .♦ I 

♦. .♦ V 

4> NO ♦♦♦♦ 



* H2 4 
► 4 
• ♦♦* 



*****F4********** 

* * 

* SET * 

* RETURN CODE * 

* =12 * 

* • 
***************** 



.*. 
Gl ♦ . 
.♦ MORE +.. 
.* ALTERNATE ♦ . NO 

► . TRACKS .♦ 1 

♦ . .* 

*• ■* 1 

♦. . ♦ v 
* YES **** 



I 



* HH * 

4< • 

**** 



**G2******* 

* 4 

* WRITE 
» (EXCP) 

* ALT. TRK. 

• 4 
*********** 

***♦ 
* * 
► H2 ♦-3 

*•** 

H2" 



*. 



.♦ SPECIFIED ♦. YES 

. TRACK AN .♦ 1 

♦.ASSIGNED .* 

♦. ALT .♦ I 

♦ . '.♦ V 



**** 

* * 

* B2 * 

* * 
4>**« 



*****J1********** 

* * 
4i FLAG THE * 

* TRACK * 

* DEFECTIVE * 

* 4i 
•*••*******•***** 



.* 
♦ . 



*» 



.♦ 
.* 
NO 



*. 

*. 
.♦ ♦. 

*- * 
GETALT . ♦- 
-4i 
„♦ 
• 
YES 



*****H1| ********** 

♦ SET * 

• RETURN CODE * 

* =16 * 



***************** 



**** 

* 4 

* FU 4 
» 4 

**** 



J2 



*„ 



*****j3********** 

* * 

* UPDATE * 
->* ALT. TRK. * 

* INFORMATION * 

* * 
***************** 



♦♦*♦ 
4i ♦ 

* E2 * 

• * 
**** 



♦*♦♦ 

* 4 

* B3 4 
» 4 

**** 
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Data Set Utility Programs 



This section of the manual describes the 
nine data set utility programs: IEBCOPY, 
IEBCOMPR, IEBGENER, IEEPTPCH, IEBUPDAT, 
IEBUPDTE, IEBISAM, IEBEDIT, and IEBDG. 
These programs are executed under the 
Operating System/360. For their operation, 
however, they require user-supplied control 
statements in the input job stream. 

IEBCOPY, IEBCOMPR, IEBGENER, and 
IEBPTPCH are designed as overlay programs, 
each consisting of three segments: the 
root segment, the control card analyzer 
segment, and the processor segment. The 
root segment alone is loaded initially; it 
links to the control card analyzer segment. 
When the control statements have been ana- 
lyzed, control is returned to the root, 
which links to the processor segment. 

The data set utility programs use QSAM 
for both reading the SYSIN data set and 
putting out the SYSPRINT data set. Eoth 
data sets may have a blocking factor that 
is other than one. 

The storage requirements for buffers and 
tables are dynamically determined at execu- 
tion time to optimize space allocation and 
thus permit the data set utility program to 
take full advantage of any storage that is 
available. If more storage is requested 
than can be supplied by the Main Storage 
Supervisor routines, the task is automatic- 
ally terminated. If, however, the request 
cannot be filled immediately because of 
priority scheduling within a multi-tasking 
environment, the execution of the utility 
program can be delayed until its storage 
requirements are met. 



Updating Partitioned and Sequential 
Data Sets (IEBUPDTE) 

The IEBUPDTE utility program incorporates 
both IBM and user-generated source language 
modifications into sequential data sets or 
into partitioned data sets. The input and 
output data sets contain blocked or 
unblocked logical records of 80 bytes or 
less. 

The program can: 

• Add, copy, and .replace members of data 
sets. 

• Add, delete, replace, and renumber the 
records within an existing member or 
data set. 



• Assign sequence numbers to the records 
of a member or data set. 

• Create a sequential master data set 
from an input partitioned data set, and 
vice versa. 

At the completion or termination of the 
program, the highest return code encoun- 
tered within the program is passed to the 
calling program. The utility program can 
also produce a message data set containing 
a listing of the contents of the output 
data set, the control statements submitted 
to the utility program, and, if applicable, 
error messages. 

Data definition (DD) statements needed 
to run the program are as follows: 

• SYSUT1, which defines the old master 
data set (sequential or partitioned) . 

• SYSUT2, which defines the new (updated) 
master data set (sequential or 
partitioned) . 

• SYSIN, which defines a sequential data 
set containing the transactions to be 
applied to the old master data set. 

• SYSPRINT, which defines a sequential 
data set containing either changes to 
the old master or contents of the new 
master, as well as utility control sta- 
tements used and any error messages 
generated. 



PROGRAM STRUCTURE 

The program consists of three segments (or 
load modules) : the root segment 
(IEBUPDTE) , the control card analyzer seg- 
ment (IEBASCAN and IEBBSCAN) , and the 
intialization and exit routine modules 
(IEBUPNIT and IEBUPXIT) . 

The Root Segment 

The main functions of the root segment are 
the processing of records and the printing 
of messages. The segment contains three 
control sections (CSECTs) : IEBUPDTE, IEBU- 
PLOG, and IEBUPDT2. The following text 
discusses the functions of each CSECT. 

• IEBUPDTE receives initial control from 
the supervisor, obtains storage for the 
communication region IEBUPCON, and 
passes control to module IEBUPNIT for 
initialization. For writing a header 



Data Set Utility Programs: IEBUPDTE 101 



message on the SYSPRINT output device, 
CSECT IEBUPDTE passes control to CSECT 
IEBUPLOG. After the return (of con- 
trol) from CSECT IEBUPLOG, CSECT 
IEBUPDTE gives control to CSECT 
IEBUPDT2 to begin the actual processing 
of records. 

• IEBUPLOG is a closed subroutine, which 
writes messages and records on SYS- 
PRINT. The first execution of IEBUPLOG 
opens SYSPRINT and the last closes it 
and returns control to the supervisor. 

• IEBUPDT2, the heart of the program, 
opens the old and new master data sets, 
reads, processes, formats and writes 
the output records, and stows member 
names if the new master is partitioned. 
If user labels are to be processed on 
either SYSUT1 or SYSUT2, CSECT IEEUPET2 
passes control to module IEBUPXIT 
through data management routines during 
open, close, or end of volume proces- 
sing. CSECT IEBUPDT2 passes control to 
the segment IEBASCAN to scan and ana- 
lyze control statements, and to CSECT 
IEBUPLOG to log messages and records on 
SYSPRINT. 

The Control Card Analyzer Segment 

The main functions in analyzing control 
cards are performed by two CSECTs in this 
segment: IEBASCAN and IEBBSCAN. The fol- 
lowing text discusses the functions of each 
CSECT. 

• IEBASCAN scans and analyzes control 
statements and sets appropriate flags 
in the region IEBUPCON. CSECT IEBASCAN 
gives control to CSECT IEBUPLOG to 
print a copy of the control statement. 
To scan the individual parameters of 
each control statement, CSECT IEEASCAN 
gives control to CSECT IEEBSCAN with a 
doubleword parameter list, located at 
address STOREG in the communication 
region. For the reading of a control 



statement continuation card, CSECT IEB- 
BSCAN gives control to CSECT IEBUPDT2. 
The first word in the list is the 
length of the last parameter analyzed 
by CSECT IEBBSCAN. The last word con- 
tains a pointer to the same parameter's 
location in a buffer area, SWITCHRD. 

• IEBBSCAN, which is a closed subroutine, 
receives control from CSECT IEBASCAN 
and returns control either to CSECT 
IEBASCAN or to CSECT IEBUPDT2 (for 
reading another control card) . CSECT 
IEBBSCAN scans the individual parame- 
ters on each control statement. If 
diagnostic messages are required as a 
result of the scanning, control is 
given to CSECT IEBUPLOG. 

Initialization and Exit Routine Modules 

There are two modules in this group. They 
are described in the following text. 

• IEBUPNIT is the initialization module. 
This module is a closed subroutine that 
receives control from CSECT IEBUPDTE 
for the purpose of initializing the 
region IEBUPCON, analyzing the parame- 
ters on the EXEC card, and opening the 
SYSIN data set. 

• IEBUPXIT is the module containing the 
program's exit routines. For each of 
the three DCBs (SYSIN, SYSUT1, and SYS- 
UT2) , this module contains an entry 
point for each of the following closed 
subroutines: DCB exit, header-label 
exit, trailer-label exit, SYNAD exit, 
and end-of-data exit (there is no end- 
of-data exit for the SYSUT2 data set) . 



PROGRAM FLOW 

Figure 41 shows the overall flow of the 
program; more detailed flow is shown in 
Charts 40 and 41. 
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•Figure 41. IEBUPDTE Overall Flow 



PROCESSOR DATA FLOW 

Figure 42 indicates the paths taken by data 
from SYSUT1 and SYSIN. The following is a 
breakdown of data flow within the processor 
(IEBUPDT2) according to the type of run: 
NEW or MOD. 

NEW ; This type of transaction involves 
reading data from SYSIN and writing it on 
SYSUT2 and (if specified) on SYSPRINT. 
Logical records are read in turn from SYSIN 
into the input buffer at SWITCHRD+1; rec- 
ords are then stacked in the SYSUT2 output 
buffer at NMWRITEP until the desired block- 
ing factor is reached. A physical record 
is then written on the new master (SYSUT2) . 
This process is repeated until SYSIN has 
been exhausted. If the SYSUT2 data set is 
partitioned (as indicated by the NAME key- 
word) the member name is stowed. 

MOD ; This type of transaction involves 
reading data from SYSUT1 (the old master 
data set) and SYSIN, merging them as indi- 
cated on function and detail statements, 
and writing the resultant data on SYSUT2. 
The updated master is written on SYSUT1 
only when UPDATE=INPLACE is specified. 



For a REPRO run, a physical record is 
read from SYSUTl into the buffer 
OMREADP, logical records are then moved 
individually to OMINAREA for inspection 
and then to the output buffer NMWRITEP 
until the desired output blocking fac- 
tor is reached; the output record is 
then written on SYSUT2. 

For an ADD run, records are read from 
SYSIN and are stacked in the output 
buffer NMWRITEP until the desired 
blocking factor is reached. The output 
record is then written on SYSUT2. If 
the data set is partitioned, the member 
name specified is stowed in the direc- 
tory of the new master. If numbering 
of records is specified, it is per- 
formed in the input buffer, SWITCHRD+1. 

For a REPL run, the flow is similar, 
except that the new data from SYSIN 
replaces the member specified. Number- 
ing, if specified, is performed in the 
input buffer SWITCHRD+1. 

For a CHANGE run, which operates within 
a data set or member of a partitioned 
data set, records may be changed, 
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deleted, numbered or added, depending 
on the detail statements and data cards 
following the change statement. When 
one of these statements (DELETE, NUMB- 
ER, or DATA ) has been read from SYSIN 
into the buffer SWITCHRD+1, a record is 
read from the old master (SYSUT1) into 
the buffer OMREADP and is processed as 
follows (see also Figure 42) . 

1. A logical old master record is 
moved from the buffer OMREADP to 
OMINAREA, and its sequence number 
(OM) is compared against SEQ1, if 
number or delete is in effect, and 
otherwise against the SYSIN record 
sequence number. 

2. If OM is less than SEQ1, the old 
master logical record is moved to 
the output buffer NMWRITEP, and 
the next old master record is 
moved into OMINAREA. 

3. If SEQ1 is less than or equal to 
OM, and OM is less than or equal 
to SEQ2, the old master is 
updated: 

• If the old master logical record 
is to be deleted , the next old 
master logical record is moved 
to overlay it in OMINAREA. 

• If data is to be inserted , (if 
the SYSIN sequence number is 
less than OM) the SYSIN data 
statement in SWITCHRD+1 is re- 
numbered if necessary and moved 
to the output buffer NMWRITEP, 
and the next SYSIN record is 



read. If OM equals the SYSIN 
sequence number, the SYSIN reco- 
rd replaces the old' master 
record. 



• If the SYSIN sequence number 
equals OM and COLUMN UPDATE was 
specified, the portion of the 
record in OMINAREA not to be 
updated is moved to its corres- 
ponding relative position in the 
buffer SWITCHRD+1, this updated 
record is renumbered if neces- 
sary and then moved to the out- 
put buffer NMWRITEP, and the 
next SYSIN and old master rec- 
ords are read. 

• If the old master record is to 
be numbered , the indicated 
sequence number is stored in it, 
and the updated master record is 
moved to the output buffer 
NMWRITEP. The next old master 
logical record is then moved 
into OMINAREA. 

When OM is greater than SEQ2, 
IEBUPDTE checks to see that record 
SEQ1 was actually processed 
(deleted or numbered) , if it was 
not, an error message is written 
and the member update terminates. 
If it was, the next record from 
the old master is moved into 
OMINAREA, and the next record from 
SYSIN is read into SWITCHRD+1. 
Processing of the previous number 
or delete statement is considered 
finished. 
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Pre-Processing 



L 



SYSIN (changes to master) 



SYSPRINT (messages and 
statements) 



/SYSUT2 (new master 
/SYSUTI (old master) 



EXEC PGM=IEBUPDTE 
NEVV, MOD 
INHDR 
INTLR 



PARM= 



Initialization (IEBUPDTE, 

>IEBUPNIT) 
These modules analyze r 
parameters from L 

EXEC statement, get 
main for IEBUPCON 
work area, clear 
switches, prepare to 
open data sets 



IEBUPCON 




Processor (IEBUPDT2) 




OPENCHK checks 
for open errors- 
DSORG, blocking 
blocksize, user 
header label; 
also gets main 
for buffers 



(MOD run only) 



NOTSHORT 
moves logical 
record to 
temporary area 



Data Card 
(SYSIN) 



Buffer 
SWITCHRD+1 



OMINAREA " 



(If NEW run, SYSIN 
is sole input) 



/For COLUMN 

/UPDATE, 
WRITEREP moves 
unupdated part of 
record onto data 
card image when 
SWITCHRD+1 



\ equals OMINAREA 



TEST LIST moves card 
image to buffer for 
INSERT or REPLACE 
when SWITCHRD+1 
< OMINAREA 




TESTLIST moves old \ 
record directly to 
buffer if no update 
needed; OMINAREA 
< SWITCHRD+1 



Control Statement Analysis (IEBASCAN) 



Function or detail 
statement from SYSIN 



lEBBSCANscans 
i a command word 
lor keyword 



./ADD NEW=PO 



SWITCHRD 



d. 



*■ ./ADD NEW=PO 



Keyword or 
command word 
analysis routine 
primes work area 
for transaction 




OPRLUP uses 
keyword or 
command word 
to look up 
address of 
analysis routine 




COMDTAB 







ADD 








8 


4 



KEYTAB 



*■ NEW 



■* 8 » | « 4 



Message Log - also opens SYSPRINT DCB, spaces, prints 
header, etc. (IEBUPLOG) 



Messages are built by passing a message number (3 here) 
and branching to MSGSTART 



MS GST ART 



MSGTEST 
scans table 
for message 
nember 



MSGnnBLD 
(MSG03BLD here) 
sets up message 
text address and 
size from tables 



BAL GR6 , MSGTEST 



Dl 



D2 



D3 



— *4 When message number \ 
(3) is found, its address 



*1*-»1* 



LOGOUTAR 



MSGWRTE tacksV 
message number 
on text, moves 
\to buffer / 



(MSGSTART+8) is 
added to displacement 
factor (D3) to form 
address of message 
builder 



Message Table 



03 



Text 



SYSPRINT 



WRITE LOG 
writes message 
or header 





Header 













•Figure 42. IEBUPDTE Principle of Operation 
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•Chart 40. IEBUPDTE (Part 1 of 2) 



IEBUPNIT 

*****&!********** 

* SET UP WORK * 
♦AREA, SET FIRST* 

* ENTRY SWITCH, * 

* ANALYZE EXEC * 

* PARMS * 
***************** 



IEBUPNIT 

*****B1 ******** * 

* REINITIALIZE 

* SWITCHES, 

* OPEN SYSIN 

* DCB OM 

* INITIAL ENTRY 
**************** 



* CI ♦-> 

**** 1 
READSW1 



* * 

♦ 41 * 

* HI* 
***** 



OPENOM NOTE 

*****&2** ******** 
* INITIALLY OPEN * 
* OLD AND/OR * 

[->* NEW MASTER * 
* DATA SETS * 
* SYSUT1/SYSUT2 * 
***************** 
** 



*****A3 ********** 

* SET * 

* NUMBER SWITCH * 

* AND ESTABLISH *<- 

* START AND * 

* INCREMENT * 
***************** 



*****B3* ********* 

* FOR THIS * 

* FUNCTION * 
->* SUBSTITUTE ID * 

* SIZE At© LOC * 

* FOR 73-80 * 
***************** 



* READ- * 

NO-MORE 

FROM SYSIN 



*. SWITCH .* 

*-*? E V* 1 

** * NO *** 



.* ADD * 
OR REPL 
FUNCTION 



**** 
READSW1 



*** 

*41 * 
* At* 



*****C3********** 
*SET ADD OR REPL* 
♦SWITCH. IF PDS,* 
->* ADD IF SYSUT1 *- 
*NAME NOT FOUND,* 
* REPL IF FOUND * 
***************** 



YES 


* 




EOF 


r 


* 


OH 
*. 


SYS Id 
*. .* 


***** 






* 


*41 * 






A 



*****cn ********** 

* READCC * 
*-*-*-*-*-*-*-*-* 

->*IF DO NOT HAVE ♦<- 
♦CARD. READ ONE * 

* FROM SYSIN * 
- ***************** 



*****&$*** ******* 



* SET * 

♦ COMMAND PEWDIilG* 

♦ SWITCH ♦ 

* ♦ 
♦♦**♦*******♦♦♦♦* 



.* NEXT ♦. 
.♦ FUNCTION 
. STATEMENT 



** ***£$*** ******* 

♦ NMLSTWRT ♦ 
*-*-*-*-*-+-*-*-* 

-* NUMBER RECORD ♦ 

♦ AND/OR WRITE ♦ 

♦ NEW MASTER ♦ 
***************** 



COMMAND 
PENDING 
SWITCH 
*. SET .* 



♦ 10 * 

* Dl* 
***** 



********♦♦♦♦♦**♦♦ 



***** E2 ********** 

* * 

* SET * 

* CHANGE *- 

* SWITCH * 

* * 
***************** 

**** 

* * 

* C2 *<-■, 



*****E3 ********** 



***************** 



***** 

♦ HI * 

♦ Al* 



^ .*. 



NO 



YES 


* 


EOF ON 


r 


* 


SYSIN 

*. 

*. . * 


***** 




* N 


*41 * 







*****fll* ********* 

* SET UP DCB * 

* FOR PS OR * 
->* PDS FROM DATA * 

* ON INITIAL * 

* FUNCTION CARD * 
***************** 



.* FIRST *. 

SYSIN 

STATEMENT 

.FUNCTION . 



*****G2********** 

* IEBUPLOG * 

*-*-*-*-*-*-*-*-* 

* STATEMENT * 

* SEQUENCE * 



FLUSHALL 

*****H2********** 
* IEBUPLOG * 
*-*-*-*-*-*-*-*-* 

r>* GIVE INITIAL * 
* FLUSH * 
* MESSAGE * 
***************** 



*-*-*-*-*- 



***************** 



. * 


ENDUP 


* 


YES 




— >* , 


OR EOF ON 




* ., 




* 


SYSIN 
*. .* 

*- .* 
* NO 

! 


* 


I 

***** 

♦ HI * 

* E2* 
* * 






.*. 




ABSEQERR 




E4 *. 






**r***£5*** ******* 




* * 






* IEBUPLOG ♦ 


. * 


ALIAS 


* 


NO 


*-*-*-*-*-*-*-*-* 


*. 


STATEMENT 






— >* • STATEMENT ♦ 


* 




* 




* sequence ♦ 

♦ Error ♦ 




*• .* 








*. . * 






♦♦♦****♦********* 




* YES 

1 






I **** 

* * 

>■->* h2 ♦ 

* * 
**** 














F4 *. 






*****2S*** ******* 




* *. 






* * 


. * 




*. 


NO 


* IGNORE ♦ 








* 


DATA 

*. SET .* 

*. .* 

* YES 


* 




* * 

* * 
***************** 

| 












[ **** 












* * 












1— >* CI ♦ 












* * 












**** 





*****G4 ********** 




♦ ♦ 


s 






♦ SET ALIAS ♦ t 


1 


♦ SWITCH ♦ 


1 


♦ * 1 


V 


***************** v 


**** 


**** 


41 * 


* * 


HI* 


* CI * 


* * 


* * 


* 


**** 



*-*-*-*-*- 



-* BLOCK/WRITE 

♦ RECORD ONTO 

* NEW MASTER 
*************** 



*****J3 ********** 

* * 

* CLEAR CONTROL * 
->* CARD SWITCHES *- 

* SET FLUSH * 

* SWITCH ♦ 
***************** 



INCLUDES EXIT TO 
SUBROUTINE IEBUPXIT. 
(SEE NOTE ON CHART 41.) 



>* READ NEXT *< 

* CONTROL * 

* STATEMENT * 
***************** 



*****J5 ********** 

♦ IEBUPLOG ♦ 
*-*-*-*-*-*-*-*-* 

-* GIVE FLUSH ♦ 

♦ SCAN ♦ 

♦ MESSAGE ♦ 
***************** 



-*-*-*-* 

SET LIST SW * 

WiUTE THE ♦ 

SYSOUT RECORD ♦ 

**************** 



*****K2 ********** 

* IEBUPLOG ♦ 
*-*-*-*-*-*-*-*-* 

* CANNOT UPDATE ♦- 

* MULTIPLE PS * 

* PER JOB STEP * 
***************** 



->* HI * 

* * 

**** 
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***** 

*U1 * 
* Al* 



***** 
*41 * 
* At* 



CHNGEANL V 
(IEBASCAN).*. 

Al 



YES 

* 

NOTE 



. * VALID * . 
. FUNCTION 
♦.STATEMENT.* 



->*. DELETE SWITCH. *- 



*****B2 ********** 

* SET * 

* DELETE SWITCH * 

* AND ESTABLISH *- 

* DELETE RANGE * 

* * 
***************** 



*****A3 ********** 

* SET DELETE * 
♦PENDING SWITCH.* 

->* READ NO MORE *- 

* SYSIN * 

* SWITCH SET * 
***************** 



*****C3********** 

* * 

* SET NUMBER * 
->*PENDING SWITCH. *- 

* READ-NO-MORE * 

* SYSIN SWITCH * 
***************** 

**** 



READ NO 

MORE OLD 

.MASTER SW. 

*. SET .* 



****£t********** 

READOM * 

-*-*-*-*-*-*-*-* 

READ A * 

RECORD FROM * 

OLD MASTER 



********* 



******* 



BETWEEN THESE 
TWO BLOCKS, 
SUBROUTINE 
ILBUPXII' PER- 
FORMS TRAILER- 
LABEL PROCESS- 
ING FOR THE 
SYSIN DATA SET 



*****Q2** ******** 

* SET * 

* NUMBER RANGE * 

* AND ESTABLISH * — 

* INCREMENT * 

* * 
***************** 





* HI *<—. 

* * 




**** 1 NO 




D3 *. 

. * 


"■) 


. * CHANGE 
*. FUNCTION 
*. 


1 


* . 


V 


*. . * 


***** 


* 



YES 

* 

NOTE 



***+*E3 ********** 

* SET END OF * 

* SYSIN SWITCH, * 



***************** 



— *. DELETE SWITCH. *<- 



OMEODX 

*****C5 ********** 

*SET END-OF-OLD * 

♦MASTER SWITCH, * 

>* READ- NO- MORE * 

* OLD MASTER ♦ 

* SWITCH * 
***************** 



.* ALREADY 
-*. HAD EOD ON 
♦. SYSIN . 



<■->* HI 
**** 



.* IS OM *. 
. * RECORD * . 
.WITHIN DELETE. 
*. RANGE .* 



DATA 
RECORD 
(NO ./) 



*****G1********** 

* SET COMMAND * 

* PENDING * 

* SWITCH, AND *- 

* READ-NO-MORE * 

* SYSIN SWITCH * 
***************** 



* HI * — t 

* * | 

**** V 



SCANERR 

*****G2 ********** 

* IEBUPLOG * 
*-*-*-*-*-*-*-*-* 

* INVALID * •, 

* CONTROL * 

* STATEMENT * 
***************** y 

* 

* **** 

* *m * 

- * H2 * — -, 

* * 

**** J 

LASTLE' 



***** 
* 
H2* 



*U1 * 
* HI* 
***** 



*****jl ********** 

* STOWNAME * 
*-*-*-*-*-*-*-*-* 

* STOW * 

* MEMBER * 



ALIAS 

SWITCH 

SET 



TLEG 

*****H2********** 

♦ IEBUPLOG * 
*-*-*-*-*-*-*-*-+ 

>* LOG FINAL *< 

♦ MESSAGES ♦ 

♦ CLOSE DCBS * 
***************** 



****J2********* 

* RETURN * 

* TO SUPERVISOR * 

* * 
*************** 



*****K2********** 

* STOWNAME * 
*-*-*-*-*-*-*-*-* 

>* STOW *- 

* ALIAS * 

* NAME * 
***************** 



*****F3 ********** 

* RESET EOF ♦ 

* SWITCH. * 

* RESET DCB * 

* IFLGS TO READ * 

* MORE CARDS * 
***************** 



*****G3********** 

* * 

* LOAD REGISTER * 

* TO /*DATA *- 

* RECORD * 

* ♦ 
***************** 

**** 

* ♦ 

* H3 ♦ — ■, 

****** j 

*****H3********** 

* SAVE SYSIN * 

* DATA RECORD, * 

* SET READ-NO- * 

* MORE SYSIN ♦ 

* SWITCH ♦ 
***************** 



. *COMPARE* . 
. *DATA RECORD* . 
.TO OM RECORD . 



*****G4 **♦+****** 

* * 

* LOAD REGISTER * 

* TO POINT TO * 

* DATA RECORD * 

***************** 



*****F5 ********** 

* * 

* LOAD REGISTER * 
->*WITH POIiJTcR TO* 

* DATA RECORD ♦ 



V 
*****G5*****+++ 

* SAVE OLD 

* KASTER 

* RECORD- SET 

* READ-iVO-fcORE 

* OK SWITCH 
*************** 



. NUMBER SWITCH . *- 



*****J3********** 

* LOAD REGISTER * 
*WITH POINTER TO*- 

* OLD MASTER * 

* RECORD * 
***************** 



*****H5 ********** 

* RENUMBER * 

->* RECORD POINTED * 

*TO BY REGISTER * 



LIST SWITCH 



*****J5 ********* 

* IEBUPLOG 

>* WRITE 

* RECORD ON 
SYSPRINl 



**** 



********* 



1NOTE 
YES 

K3" '*. 

.* *. 
. * ♦ 

->*.EOF ON SYSIN 



*-*-* 

* BLOCK/WRITE * 

* RECORD ON * 

* NEW MASTER * 
***************** 



***** 

♦ 40 * 

* CI* 
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Copying and Merging Partitioned 
Data Set Members (IEBCOPY) 



The IEBCOPY program reproduces all or 
selected members of a partitioned data set. 
During the copy operation, physical data 
set compression (in-place recovery of unus- 
able partitioned data set space) can occur 
since only the currently active members are 
processed. In addition, this program may 
be used to merge members from one data set 
into an already existing data set. 

Input to the IEBCOPY program must be a 
partitioned data set. The data set must 
reside on a direct access device and be 
contained within one physical volume. The 
input records can be D, f , or V format. If 
F or V format, they can be blocked or 
unblocked. Keys, relative track address 
pointers (TTRNs) within the directory, and 
note lists are permitted. 

The output of the IEBCOPY program is 
also a partitioned data set. It must 
reside on a direct access device and be 
contained within one physical volume. 



PROGRAM STRUCTURE 

The program (Figure 43) consists of three 
segments: the root segment, the control 
card analyzer segment, and the processor 
segment. 



The Root Segment 

The root segment initializes the program. 
It consists of routine IEBCOPYA. 

IEBCOPYA 

stores optionally specified data 
definition (DD) names in a common 
table area for later insertion into 
their corresponding data control 
blocks (DCB) and inserts an optionally 
supplied initial page number into the 
page line to be written on the system 
print (SYSPRINT) data set. 



ACTCCS 

opens SYSIN; reads the control cards 
and passes the location, length, and 
identification of the parameters to 
the ANALY routine; and then closes 
SYSIN. 

The Processor Segment 

The processor segment, IEBCOPYD, performs 
the copying operation. It consists of nine 
routines: MAIN, BDIF, REJECT, TOTAL, 
FIRST, REBLOCK, SETOPSWO, EOD, and COMREAD. 



MAIN 



saves the length of the member name 
table and performs initialization to 
force the reading of the entire input 
directory if member exclusion is 
requested. This routine also opens 
the input data set (SYSUT1) for read- 
ing by means of BPAM and determines, 
during the DCE exit, whether a total 
or a selective copy is requested. If 
a total copy is requested, the DCB 
parameters are saved and the accessing 
method (BPAM) is changed to BSAM to 
allow the directory to be read. 



BDIF 



employs user-supplied member names and 
aliases to extract the corresponding 
entries from the input directory when 
an inclusive copy is requested. 

REJECT 

compares all the names in the input 
directory against the list of user- 
supplied names when an exclusive copy 
is requested. If a match is obtained, 
the corresponding member is not 
processed. 



TOTAL 



reads the input directory a block at a 
time into a buffer, calculates the 
length of the table required to store 
the directory entries, requests 
storage for the table, and rereads the 
input directory (exclusive of user 
data) into the table. At the conclu- 
sion of TOTAL, the input buffer is 
released and the address and length of 
the table is saved. 



The Control Card Analyzer Segment 

The control card analyzer segment, 
| IEBCOPYC, reads and processes the control 
cards. It consists of two routines: ANALY 
and ACTCCS. 



FIRST 



ANALY 



calls ACTCCS to process the control 
cards. Based on the parameters supp- 
lied in the control cards the ANALYZER 
sets switches and builds parameter 
tables. 



tests for TTRNs in the user data field 
of the directory and reads the note 
list, (if one exists) into the note 
list buffers. (See the publication, 
IBM System/360 Operating System: 
Supervisor and Data Management Ser- 
vices , Form C28-6 646 for a description 
of note lists.) Then, except for the 
compress function, the routine reads a 
normal record. For the compress func- 
tion, this routine then gives control 
to the COMREAD routine. 
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REBLCCK 

initiates read and write operations as 
required by the status of the in/out 
buffer and supplies the move (HMOVE) 
subroutine with the logical record 
length and the "from" and "to" 
addresses. 

SETOPSWO 

writes the member record (in original 
form, reblocked, or as an update note 
list) on the output data set (SYSUT2). 
(For the compress function, this rou- 
tine is not used. The COMREAD routine 
does the writing of records in this 
case.) 

EOD 

stores the required data in the output 
directory (member names, aliases, user 
data, etc.). 

COMREAD 

performs the reading and writing 
operations when the compress function 
is specified. If note lists (records 
which contain pointers to blocks 
within a given member of a partitioned 
data set) are present, this routine 
will update them. The routine also 
reads and writes the member records 
(of a PDS) one track at a time and 
updates the TTRNs of a user data field 
when necessary. 



j Root | 

I I 

l T ,_J 

x - 



r 

r x 1 

| Control | 

| card j 
| Analyzer j 
l J 



1 

r A 1 

I I 

| Processor | 

I I 

L J 



L . J 

Figure 43. Overlay Structure of the IEECO- 
PY Program 



A test is then made to determine if an 
exclusive copy was requested. For an 
exclusive copy, the user lists the names of 
the members that are not to be copied. The 
input data set directory is then read to 
determine the names of the members that are 
to be copied. If an inclusive copy is spe- 
cified, all members listed are copied. 



Next, the input data set (SYSUT1) is 
opened. If a total, an exclusive, or a 
compress copy is to be performed, the DCB 
parameters are saved and the basic sequen- 
tial access method (BSAM) is used to read 
the directory. For the compress function, 
storage areas will also be allocated for 
use as buffers. Once the directory is read 
and all the entries are stored in a table, 
the access functions are performed either 
by using BPAM (for all but the compress 
function) or by using the XDAP (execute 
direct access program) macro instruction 
(for the compress function). For a 
description of the XDAP macro instruction, 
see the publication IBM System/360 Operat- 
ing System; System Programmer's Guide , 
Form C28-6550. 

The output data set is then opened and, 
during the DCB exit, the DCBs of the input 
(SYSUT1) and output (SYSUT2) data sets are 
checked for valid reblccking requests. 

For a valid reblocking request, switches 
are set to establish a > linkage to the 
reblocking routine. Space for the in/out 
buffer is also allocated at this time. If 
there is to be reblocking, a second buffer 
(in/out) is obtained. The length of the 
in/out buffer is equal to the input block 
size plus the key length. 

The program is now ready for the names 
of the members that are to be copied. If 
the copy is to be either total, exclusive, 
or compress, the entire directory has 
already been read and saved. If the copy 
is inclusive, however, the member names and 
aliases which were provided by the user in 
the control statements and the correspond- 
ing entries are extracted from the direc- 
tory at this time. 



PROGRAM FLOW 

Charts 42 and 43 show the flow of control 
through the program. After the program is 
entered, it sets switches, assigns data 
areas, and opens SYSPRINT. The header line 
is written on SYSPRINT at this time using 
the optionally supplied initial page 
member. 



Directory entries, related to the mem- 
bers that are to be copied, are sorted and 
grouped by member name and physical disk 
address (TTR) . A member name precedes all 
its aliases. If member exclusion is 
requested, the names in the directory are 
compared against the user-supplied names. 
When a match occurs, that member is not 
processed. 



The control card analyzer routine picks 
up the control statements from SYSIN and 
places them in tables within the IEBCOPY 
program . 



The user data field for the member name 
extracted from the input directory is 
interrogated. If the user data field con- 
tains note list pointers, a note list buff- 
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er is allocated and the note list is read 
to determine its length. 



After the note list (if one exists) is 
read, the next processing steps depend upon 
whether the compress function has been 
specified. 



Copying Without Data Set Compression 

If data sets are to be copied without com- 
pression, a physical record is read into 
the in/out buffer. If reblocking is 
requested, a reblocking routine affects the 
new block size. The HMOVE subroutine is 
used to transfer logical records from the 
in/out buffer to the reblocking buffer from 
which the new block is written. When 
reblocking is not requested, physical rec- 
ords are written directly from the in/out 
buffer. 



Before writing records for which 
reblocking has not been requested, the 
track address (TTR) for each physical reco- 
rd is compared to the entries within the 
note list. If a match occurs, a switch is 
set to indicate that pointers have been 
found that will require updating. After 
each physical record is written, the track 
address pointer (TTRN) for the output reco- 
rd is noted. This new (output) pointer 
replaces the former (input) pointer in 
either the directory entry or the note list 
(or both) depending on where it appeared in 
the input . 



When the end-of-data for a member is 
reached, the member name and all aliases 
pertaining to that member are stored in the 
output directory. If the member name table 
indicates that more members remain to be 
copied, the copying process resumes. If 
the member name table is exhausted, job 
termination is initiated; registers are 
restored, a termination (normal or abnorm- 
al) message is written onto SYSPRINT, the 
proper return code is set, and control is 
returned to the control program. 



Copying With Data Set Compression 

When data set compression has been speci- 
fied (by the PARM = COMPRESS parameter on 
the EXEC control card) , the COMREAD routine 
first uses a subroutine to convert the 
relative track address of a member record 
to an actual track address. Then the uti- 
lity program obtains the blocksize (from 
the data set parameters) and uses the XDAP 
macro instruction to read the record into a 
buffer. The actual number of bytes read 
into the buffer is calculated from the 
residual byte count appearing in the chan- 
nel command word. If the record contains 
TTRNs or is a note list, an indicating 
switch in the buffer table is set. After 
all records on a track have been read and 
inspected, they are written on the output 
data set (SYSUT2) . When all the records of 
a member have been written, any TTRNs in 
the directory and any note lists are 
updated. Processing then continues as 
described for copying without the compress 
specification. 
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Chart 42. IEBCOPY - Copying and Merging Partitioned Data Set Members (Part 1 of 2) 



**** 

* * 

* A2 * 

* * 
**** 



IEBCOPYA 

***+*Al********** 

* SET SWITCHES, * 

* ASSIGN DATA * 

* AREAS. ANALYZE * 

* LINKAGE * 

* PARAMETERS * 
***************** 



IEBCOPYC 

*****B1 ********** 

* ANALYZER * 
*-*-*-*-*-*-*-*-* 
•READ 6 PROCESS * 

* CONTROL CARDS * 

* OPEN SYSPRINT * 
***************** 



NOSETV 


.*. 




B2 *. 




* * 


YES .* 


COMPRESS 


r— *■ 


FUNCTION 


f 


SPECIFIED 



(IEBCOPYA) V 



NOTE: TEST 

"♦♦♦♦♦C i****** 

* IF ANALYZER *if J i,§S,.. t , * ALLOCATE 

* FINDS ERROR. * t A 3v£, YZ - t ' I> ' * STORAGE FOR 

* RET TO CALLER.*"?™., * IN/OUT 

* OTHERWISE GO TO*J£ROk'. * BUFFER 
IEBCOPYD *OCCUr 



. * COMPRESS * . 
. FUNCTION 
♦.SPECIFIED.* 



♦♦♦♦♦B3^ ********* 

♦ ALLOCATE ♦ 

♦ STORAGE FOR * 
-* REBLOCKING ♦ 

♦ BUFFER * 

♦ * 
***************** 

♦ **♦ 

♦ * 

♦ C3 ♦ n 



. ♦ TOTAL ♦. 

COPY 

♦.REQUESTED.* 




*-*-♦-*-♦-♦-*-*-* 

♦ ERROR ♦- 

♦ ROUTINE ♦ 

♦ ♦ 
***************** 



♦ ***i}5********* 

* RcTURW TO * 
>* CALLING * 

♦ PROGRAM * 
♦♦♦♦♦*♦***♦**♦* 

VIA IEBCOPYA 

AND THE SUPERVISOR 



************* 



EXCLUSIVE 

COPY 

.REQUESTED. 



*****£!********** 

* SAVE LENGTH * 

* OF MEMBER ♦ 

* NAME TABLE. * 

PREPARE TO 
QB 

***** 



**F1******* 

* OPEN * 
INPUT 

DATA SET 
( SYSUT1 ) 

* ♦ 
*********** 



***************** 
***♦ 



.* COMPRESS ♦. 
. FUNCTION 
♦.SPECIFIED.* 



.* EXCLUSIVE 



♦ ♦♦♦ 

EXLST 

*****3 It********** 

* DETERMINE ♦ 
EXCL ♦ MEMBERS NOT * 

* >* TO BE COPIED. * 

* SET UP TABLE * 

* OF SAME. * 
***************** 



GET MAXIMUM 
TRACK CAPACITY 
OF DEVICE 
SPECIFIED. 
CALCULATE SIZE 
OF INTERNAL 
BUFFER TABLE. 
GET BUFFER 
REQUIREMENTS. 



*****£3 ********** 

* FOR MEMBERS * 

* TO BE COPIED, * 
♦EXTRACT ENTRIES^ 

* FROM INPUT * 

* DIRECTORY, * 
***************** 



.♦ ERROR *. 
* DURING 
EXTRACTION 



NOTE 2: 

PROCESSING ON 
RECORDS IS DONE 
ACCORDING TO 
NUMERICAL SEQUENCE 
ON A TRACK RATHER 
THAN THE ALPHABETICAL 
SEQUENCE IN THE 
DIRECTORY. 



*♦♦♦ 
PREBEG1 

*****F4********** 

* SORT THE ♦ 

♦ DIRECTORY ♦ 
— >♦ ENTRIES (SEE ♦ 

♦ NOTE 2 AT * 

* RIGHT) * 
***************** 



**** 

*H2 * 

* Gl» *-> 



TOTAL 

*****G2 ********** 

♦ READ INPUT * 
♦DIRECTORY. J^ALC* 
♦SIZE OF BUFFER ♦ 

♦ TABLE. SET UP ♦ 

♦ DIRCTY TABLE ♦ 
***************** 



♦♦♦♦♦G3********** 

* FROM INPUT * 

* DIRECTORY, * 

* EXTRACT USER *< 

* DATA FOR THIS * 

* MEhBER * 
***************** 



**** 
SEE NOTE 1, BELOW: 



TOTAL * . 
COPY 
.REQUESTED.* 



♦ *** 




. * 




* 


* 


YES 


* 


iRROR 




Bt *<- 




D 


3RING 




♦ 




♦EXTRACTION 


♦ **• 




*. 




♦ 



♦ Jl ♦-> 



* ♦♦♦ 

OPENOUT 

**J1******* 

* OPEN * 

* OUTPUT 

* DATA SET 

* (SYSUT2) 

* * 
*********** 



J3 *. 
.* DOES * 
. * THIS 

1->* . ENTRY 
*. CONTAIN 
*.TTRNS.* 
*. .* 
* NO 
* * **** 
*42 ** * 
* J3** K3 * 
****** * 
*♦** 
NZERO 



COMPRESS * . 
FUNCTION 
•SPECIFIED.* 



REJECT 

THIS 
MEMBER 



*****2]t| ********** 

♦ SKIP THIS * 

♦ MEMBER. ♦ 

♦ GET NEXT *- 

♦ MEMBER. ♦ 

♦ * 
***************** 



*****jti**** ****** 



* OF TfRNS 

* 

************* 



[)*•******** 



***************** 



***** 

♦ 43 ♦ 

* Dl* 



*♦♦♦ NOTE 1: 



COPY IS AUTOMATIC. 
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•Chart 43. IEBCOPY - Copying and Merging Partitioned Data Set Members (Part 2 of 2) 



* 
* * 


*****A2 ******** 

* GET ACTUAL 

* TRACK ADDRESS 
,->* OF RECORD 

* PROM CONVERT 

* ROUTINE 

1 *************** 


*42 * 
* BU* 


* 
* * **** 




***** 


*U3 ** * 




A 
1 


* A2»* B2 *-> 
****** * 




1 YES 


**** 


Bl *. 


******B2 ******** 


.* *. 

ERROR * . 
IN READING . *<— 


USING XDAP, 
* READ A 

PHYSICAL 

* RECORD 



************* 



f NO 






v 
.*. 


Cl" '*. 






C2 *. 


. * *. 






. * ANY * . 


.* END ♦. YES 






* RECORD * . 


*. OF INPUT .* 1 




* 


FOUND FROM .* 


*. DATA .* 






* . XDAP . * 


*. .* 1 






*. . * 


*. .* * 






* • .* 


* ***4 






* YES 


**** * 


* 








♦13 * * A5 


* 








* Dl * — t * 


* 








* * f **** 










**** 1 










V READ 






V 


*****D1 *********** 






»***D2 ********** 


READ PHYSICAL 




* 


CALCULATE * 


* RECORD FROM * 






ACTUAL BYTES * 


INPUT DATA 




* 


READ AND * 


* SET * 




* 


PLACE NO. IN * 


(SYSUT1) 




* 


BUFFER 


TABLE * 



************* 



**************** 



.* *. 

ERROR *. YES 
IN READING .* -, 

'♦■ •*"* l 


.* ANY * 
. * TTRN ' S 
*. IN 
* . ENTRY 
*. . * 


*. .* V 


*. . * 


* NO ***** 
I *U2 * 

* BU* 


* YES 



* WRITE A 
PHYSICAL 
* RECORD * 

************* 



*****£ 3********** 

* * 

* UPDATE * 

* TTR'S AND * 

* NOTE LIST * 

* * 
***************** 



. * THIS LAST *. 
. RECORD IN . 
*. MEMBER .* 



* A5 * — t 

* * 
**** I 

iFl V 



ERROR 

IN 

WRITING 



*Ab** 
SET INDICATOR 
IN INTSR.'IAL 



It**************** 



.* HAVE *. 
. * ALL * 
.MEMBERS BEEN 
*. PROCESSED . * 



**** .* DOES *. 

* YES .* NEXT * 
E3 *< *. MEMBER HAVE 

* *. ALIAS .* 



**** 
*U2 * 
->* GU 

* * 
**** 



**** 

* * 
->* B3 * 

* * 

**** 



**** 



YES 



* E3 *-> 

* * 
**** 

*****E3********** 

* * 

* UPDATE * 

* THE *- 

* DIRECTORY * 

* * 
***************** 



* E5 * — •■ 

* * 

**** I 

J V 



ERROR 
DURING 
UPDATE 



*****£5********** 

* 

STOW THE * 

DIRECTORY * 

INFORMATION * 



V~~ 



**** 

* * 

* E5 * 

* * 
**** 



»****H1********** 



***************** 



THIS A 

TTR 
RECORD 



*****G2 ********** 

* SET * 

* INDICATOR IN * 

* INTERNAL *- 

* BUFFER * 

* TABLE * 
***************** 



VTYPESW 

*****JX ********** 

* INDICATE ANY * 

* TRACK ADDRESS * 

* POINTER (TTRN) *- 

* THAT REQUIRES * 



SETOPSW 

****** J2 *********** 

WRITE A 

* PHYSICAL * 

> RECORD ON 

* OUTPUT * 

DATA SET 

************* 



* ARE * 

ALL RECORDS 
*. WRITTEN .* 



I— >* B3 * 

* * 
**** 



THIS A 
NOTE LIST 
. RECORD . 



*****H3********** 

* SET * 

* INDICATOR IN * 

* INTERNAL * 

* BUFFER TABLE * 

* * 
***************** 

**** 

* * 

* J3 *-> 

* • 
**** 

*****J3********** 

* UPDATE BUFFER * 

* ADDRESS * 

* UPDATE TTR *- 

* TO POINT TO * 

* NEXT RECORD * 
***************** 



. * HAS * . 




. * * . 


.* COMPLETE * 


NO 


. * ERROR * 


>*.DATA SET BEEN 


* 


* . DURING 


*. WRITTEN .* 


] 


* . STOW . * 


*. .* 


1 




*. . * 


y 


*. . * 


■ YES 


***** 


* YiiS 






*«2 * 


| **** 






* GU* 


*U2 






* * 


I— >* ijU 






* 


* 

**** 
SKIPMESS . * . 

G5 *. 
.* *. 
NO .* END OF * 
. — *. TASK 



*+***H5********** 

* * 

* PREPARE * 
>* TO ESD * 

* TASK * 

* * 
***************** 



****jb********* 

* RETURN TO * 
♦CONTROL PROGRAM* 

* * 
*************** 

VIA IfcBCOPYA AND 
THE SUPERVISOR. 



***K3 ********** 

UPDATE * 

TRACK * 

ADDRESS *- 



***************** 



* YES 
I 


**** 
* * 


l 


* Dl * 

* * 


***** 


**•* 


*U2 ♦ 

* J3* 

* * 
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Comparing Records (IEBCOMPR) 



The IEBCOMPR program compares either two 
sequential or two partitioned data sets at 
the logical record level. With one excep- 
tion, data sets containing records greater 
than 32,756 bytes in length are compared at 
the physical record level. The records 
being compared can be U, F, V, or VS for- 
mat. F, V, and VS format records may be 
either blocked or unblocked. For parti- 
tioned data sets, VS format records are not 
compared. If keys are present they are 
compared . 

The utility program will use either QSAM 
(move mode) or BSAM processing to compare 
the records, depending on the following 
parameters describing the records of the 
data set: RECFM, logical record length, 
presence of record keys. (See Table 1 for 
details.) 

All user header and trailer labels are 
compared unless control statements indicate 
otherwise. The program prints the labels 
if they are unequal. Optional user exits 
are provided so that the user can process 
his own labels. 



PROGRAM STRUCTURE 

The IEBCOMPR program (Figure 44) consists 
of three segments: the root segment, the 
control card analyzer segment, and the pro- 
cessor segment. 

The Root Segment 

The root segment consists of two control 
sections (CSECTS) : IEBCOMPM and IEBCROOT. 
CSECT IEBCOMPM contains the standard mes- 
sages for the IEBCOMPR utility program. 



CSECT IEBCROOT consists of the two routines 
COMPARE, and LLEORI. 

COMPARE 

sets all switches and tables to their 
starting or original values. 

LLEORI 

opens SYSPRINT, writes the header line 
using the optionally supplied initial 
page number on SYSPRINT. 



The Control Card Analyzer Segment 

The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: IEBCANAL (containing con- 
trol section ANALY) and IEBCCS02 (contain- 
ing control section ACTCCS) . 

ANALY 

calls ACTCCS to process the control 
cards and then, based on the parame- 
ters supplied in the control cards, 
sets switches and creates parameter 
tables. 

ACTCCS 

opens SYSIN, reads the control cards, 
and passes the location, length, and 
identification of the parameters to 
ANALY. 

The Processor Segment 

The processor segment performs the actual 
compare operation. It consists of the rou- 
tines IEBCMAIN, IEBCQSAM, and IEBCULET. 
The routine IEBCMAIN contains six subrou- 
tines: DIRBUFF1, STARTBSA, SDSOBEG, READ- 
SET1, COMPAR, and BLPRT. 

DIRBUFF1 

compares the directories of the input 
data sets if they are partitioned by 



•Table 1. Access Methods Used for Comparing Records 



Level of 
Comparison 


Data Set 


Records 
Have Keys 


RECFM 


Logical 
Record 
Length 


Access 
Method 


Physical ( 
Block I 


SYSUT1 
SYSUT2 


Yes 
Yes 


VS 
VS 


) Not a factor ( 


BSAM 


Physical ( 
Block \ 


SYSUT1 
SYSUT2 


No 
No 


VS 
VS 


) Greater than ( 
I 32,756 bytes ) 
? in at least j 
1 one data set . ' 


BSAM 


Logical ( 
Record \ 


SYSUT1 
SYSUT2 


No 
No 


VS 
VS 


VS 
V 


V 
VS 


\ Less than 32,756 r 
> bytes for both } 
) data sets. 1 


QSAM 


Logical i 
Record \ 


SYSUT1 
SYSUT2 


1 Not a ( 
) Factor \ 


F 
F 


u 
u 


V 
V 


| Less than 32,756 ( 
} bytes for both \ 
) data sets. ' 


BSAM 
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reading the directories and compares 
the member names. 

STARTBSA 

uses BSAM to open the data sets, SYS- 
UT1 and SYSUT2, being compared, and 
obtains the necessary DCB information 
from each: block size, record length, 
record format, and key length. If 
user input header or trailer labels 
are saved to be compared as data when 
user input header or trailer label 
exits are taken during Open or End-of- 
Data processing, this routine compares 
the user header labels from both data 
sets and prints the labels if they are 
unequal. 

SDSOBEG 

examines the key lengths, the logical 
record lengths (F and VS formats 
only) , and record formats of both data 
sets. Any discrepancy in the data 
sets results in an error message and 
termination of the task. If this rou- 
tine determines that QSAM is required 
to process variable spanned (VS) rec- 
ords, it closes the data sets SYSUT1 
and SYSUT2 and gives control to the 
routine IEBCQSAM to perform the 
processing. 

READSET1 

reads and deblocks physical records. 
Note : Deblocking on data sets with VS 
records is not done when comparing 
records whose length is greater than 
32,756 bytes. 

CCMPAR 

compares logical records. Unequal 
records are identified and printed. 
If a user routine is not provided and 
ten consecutive records fail to com- 
pare equally, this routine skips to 
the next member in each partitioned 
data set or terminates the task if the 
data sets are sequential. 

BLPRT 

prints internal hexadecimal data in 
Extended Binary-Coded-Decimal Inter- 
change Code (EBCDIC) characters. 

The routine IEBCQSAM contains the control 
section QSAM and processes data sets con- 
taining records that: do not have keys, 
are less than 32,756 bytes long, and are of 
format VS (see Table 1). In effect, this 
routine functions as a closed subroutine 
for routine IEBCMAIN, and it uses the sub- 
routines CCMPAR and BLPRT. 

The routine IEBCULET contains the control 
section USERLAB. This routine, which func- 
tions as a closed subroutine of routine 
IEBCMAIN, saves, in main storage, the input 
header and trailer labels for both the SYS- 



UT1 and SYSUT2 data sets. Routine IEBCULET 
is entered during the opening of, and when 
reaching the end of, the data sets SYSUT1 
and SYSUT2. Exits to user input header and 
trailer label processing routines are taken 
from this routine. 



1 
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J. 



1 
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i I 

L J 



L J 

Figure 44. Overlay Structure of the 
IEBCOMPR Program 



PROGRAM FLOW 

Chart 44 shows the flow of control through 
the IEBCOMPR program. After this program 
is entered, it sets switches and tables to 
their original or starting values and opens 
SYSPRINT. A header is written on SYSPRINT 
at this time, using the optionally supplied 
initial page number. 

The control card analyzer, ANALY, picks 
up the control statements from SYSIN and 
places them in tables within the IEBCOMPR 
program. 

The ddnaroes for each data set are picked 
up from the ddname list and saved for later 
in the messages. Switches are also set at 
this time for each user exit that is 
specified. 

The organization of the input data sets 
SYSUT1 and SYSUT2, can be either sequential 
or partitioned. If it is partitioned, 
storage must be allocated for tables. To 
determine the amount of storage needed, the 
program opens SYSUT1 with BSAM, reads the 
directory, and scans the user data field 
for member names, aliases, track address 
pointers, and note lists. When this is 
done, SYSUT1 is closed. 

If SYSUT1 and SYSUT2 are partitioned, 
they are opened with BSAM and the direc- 
tories are compared. Member names that 
compare equally are stored in the TNSET 
table. Member names that do not compare 
cause the member name with the lower binary 
value to be printed and assumed missing 
from the other data set. Also, user data 
fields for either member names or aliases 
that do not compare are printed. 
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Note list pointers associated with mem- 
ber names that compare equally are stored 
in tables TTRSET1 and TTRSET2 for SYSUT1 
and SYSUT2, respectively. When the direc- 
tory comparison is complete, SYSUT1 and 
SYSUT2 are closed. 

At this point the program begins to com- 
pare logical records. The input data sets 
are opened and the necessary information is 
extracted from each DCB; i.e., block size, 
record length, record format, and key 
length. If a user exit is taken to com- 
pare, as data, the user input header labels 
from two sequential data sets, this routine 
performs the comparison of the appropriate 
labels. If the input data sets are sequen- 
tially organized, the user header labels 
from both data sets are compared unless 
control statements indicate otherwise. The 
program prints the labels if they are 
unequal. 

The record formats, the key lengths, and 
the logical record length (F and VS format 
records only) of the input data sets are 
compared. If there is any inconsistency, a 
message is printed and processing is 
terminated. 

A physical record is read from each 
input data set and deblocked. ( Note : 



Deblocking is not done when the data sets 
being compared have records whose lengths 
are greater than 32,756 bytes.) If there 
is no user pre-compare routine, a record 
from each data set is compared a character 
at a time until all the records are 
compared. 



Records that do not compare are identi- 
fied and printed. If a user error routine 
is provided, control is transferred to it. 
If a user error routine is not provided and 
this is the tenth consecutive error, pro- 
cessing either terminates if the input data 
sets are sequential or skips to the next 
member if the input data sets are 
partitioned. 

After the last record is processed, the 
input data sets are closed; the total num- 
ber of records compared is printed. If a 
user exit is taken to compare, as data, the 
user input trailer labels from two sequen- 
tial data sets, this routine performs the 
comparison of the appropriate labels. If 
the input data sets are sequentially 
organized, the user trailer labels from 
both input data sets are compared unless 
control statements indicate otherwise. The 
program prints the labels if they are 
unequal. 
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•Chart HH. IEBCOMPR - Comparing Records 



****&!********* 

> * 

» ENTRY * 
» * 

*************** 



IEBCOMPR 

*****B1********** 

* SET * 

* SWITCHES AND * 

* TABLES TO * 

* STARTING * 

* VALUES * 
***************** 



ARE 

LABELS 

EQUAL 



SVC 19 
**A3******* 

* OPEN * 

SYSUT 1 * 

AND *<.. 
SYSUT 2 * 

* * 
*********** 



. * ARE * 

LABELS 

TO BE 

. COMPARED 



*****C2 ********** 
*ZZPR * 
♦-♦-*-*-*-*-*-*-* 
>* PRINT USER * 1 

* HEADER * 

* LABELS * 
***************** 



SDSOBEG 

*****C3********** 

* CHECK KEY * 
♦LENGTH, LOGICAL* 
♦RECORD LENGTH, * 

* AND RECORD * 

* FORMATS * 
***************** 



*****D1 ********** 
*ANY * 

*-*-*-*-*-*-*-*-* 

* READ AND * 
•PROCESS CONTROL* 

* CARDS ♦ 
***************** 



BEGIN1 

****•£!*******•** 

* SAVE DDNAhiES * 

* FOR MESSAGE * 
♦WRITER AND SET * 

* USER EXIT ♦ 

* SWITCHES ♦ 
***************** 



.* DATA ♦. 
. ♦ SET ♦ 
♦.ORGANIZATION 



*****G1 ********** 

♦ SCAN ♦ 
+ DIRECTORY FOR ♦ 

♦ PURPOSE OF ♦ 

♦ ALLOCATING ♦ 

♦ STORAGE ♦ 
***************** 



* COMPARE * 

* THE ♦ 

* DIRECTORIES ♦ 

* * 
***************** 



At *. 
...>.* ARE *. 

. * THERE * . NO 

+ . HEADER LABELS .* >♦. 

♦. TO COM- .♦ A 

♦.PARE .♦ 



* YES 



INHDR 

*****B4 ********* t 

* COLLECT * 

* AND SAVE * 

* LABELS FOR * 

* COMPARISON * 

* * 
***************** 



> THERE A * 
USER HEADER 
►. ROUTINE .* 



t ****%$ ********** 



* USER'S * 

* HEADER LABEL * 

* ROUTINE, * 
***************** 



*****Q$*** ******* 

* * 

* PROCESS US En * 

* REQUESTS AND * 

* RETUKN CODE * 

* + 
***************** 



.* ANY *. 

. * MORE + . 

♦.RECORDS TO BE. 

♦.COMPARED .♦ 



READSET1 

*****E3 ********** 

* READ AND * 

* DEBLOCK A * 
♦PHYSICAL RECORD* 
♦FROM BOTH DATA ♦ 

* SETS ♦ 
***************** 



.* USER *. 
♦PRE-COMPARE* . 

DATA SET 
».<SYSUT1) .* 



**D4******* 

* END OF * 
DATA FOii 

SYSUT 1 OR 
SYSUT 2 

* * 
*********** 





. * 


ARE *. 


YES 


* LABELS TO *. 


r — * 


BP, 


COMPARED . 


r 


*. 


.* 


1 


* 


.* 
*. .* 


**** 




* NO 


* * 




| **** 


* Ha * 




* 


* * 




L_>* KU 


**** 







*****F4 ********** 

* * 
*-*-+-*-*-*-*-*-* 

>* USER * 

* PRE-COMPARE * 

* ROUTINE ♦ 
***************** 



D5 *. 
. .>.* ARE *. 

. * THESE * . 

♦TRAILER LABELS. 

*. TO CGh- .* 

♦.PARE .* 

*. . * 

* YiS 



♦ COLLECT AjD ♦ 

♦ SAVE LABELS ♦ 
♦FOR COMPARISON ♦ 

♦ * 
***************** 



* PREPARE TO * 
♦READ DATA SET 1* 
♦AND DATA SET 2 ♦ 

♦ ♦ 
***************** 



COMPAR 


. *. 
G3 *. 
* * . 


YES 

* 


* ARE 

THE RECORDS 
*. EQUAL . 



♦♦*♦ 

♦ ♦ 

♦ A3 ♦ 

♦ ♦ 
**** 



*-*-*-*-*-*-*-*-* 

* * 

* ERROR ROUTINE * 

* * 
***************** 



USER 

ERROR 

EXIT 



********* 



* USER ♦ 

* ERROR ♦ 

* ROUTINE ♦ 
***************** 



ARE 

LABELS 

EQUAL 



*****j4********** 
*ZZPR * 

*-*-*-*-*-*-*-*-♦ 

* PRINT * 

* TRAILER * 

* LABELS * 
♦♦♦♦♦************ 

**** 



**** 

****KU********* 

* * 

* RETURN ♦ 

* ♦ 
♦♦♦♦*********** 



.♦IS THERE A * 
.USER TRAILER 
*. ROUTINE .* 



*****t,5 ********** 



* USSR'S * 

* TRAILER LABEL * 

* KOUTINii * 
***************** 



»****h5********** 



RETURN CODE * 
***************** 
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Copying and Modifying Records 
(IEBGENER) 

The IEBGENER program copies a sequential 
data set, or converts a sequential data set 
into a partitioned data set, or adds mem- 
bers to an existing partitioned data set. 
Editing facilities are available with all 
operations of this program. 

The input to the IEEGENER program must 
be a sequential data set. The data set can 
reside on any device. The input records 
can be U, F, V, or VS format. If F r V, or 
VS format, they can be blocked or 
unblocked . 

The output of the IEBGENER program can 
be either a sequential or a partitioned 
data set. If the output data set is parti- 
tioned, it must reside on a direct access 
device and note lists will not be 
permitted. 



PROGRAM STRUCTURE 

The IEBGENER program (Figure 45) consists 
of three segments: the root segment, the 
control card analyzer segment, and the pro- 
cessor segment. 

The Root Segment 

The root segment initializes the program 
and writes messages on SYSPRINT. It con- 
sists of three routines (IEBGENER, HWRMSG, 
and HCDWR) and a message module, IEBEGMSG. 

IEBGENER 

sets switches, assigns data areas, 
opens SYSPRINT, and writes the header 
line with a user supplied initial page 
number (if any) on SYSPRINT. 

HWRMSG 

writes error messages on SYSPRINT. 

HCDWR 

writes, on SYSPRINT, the control cards 
that are read by the control card 
scanner (IEBGSCAN) routine. 

IEBGMESG 

contains the text of error messages 
that are written by HWRMSG. 

The Control Card Analyzer Segment 

The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: IEBGSCAN and IEBCCS02. 

IEBGSCAN 

calls IEBCCS02 to process the control 
cards and then, based on an analysis 
of the parameters supplied in the con- 
trol cards, IEBGSCAN sets switches and 



creates parameter tables for use Jay 
the processing modules IEBGENR3, IEB- 
GENS3, and IEBGEN03. The addresses of 
the tables are in a list to which gen- 
eral register 1 points when this rou- 
tine has finished its processing. 

IEBCCS02 

opens SYSIN, reads the control cards 
and then passes the location, length, 
and identification of the parameters 
to IEBGSCAN. 

The Processor Segment 

The processor segment consists of a root 
module, IEBGENR3, and two processing 
modules, IEBGENS3 and IEBGEN03. The root 
module opens and closes the data sets and 
performs all label processing. It gives 
control to either of the other two modules 
(IEBGENS3 and IEBGEN03) for editing and 
copying functions. Module IEBGENS3 is used 
for variable spanned records and IEBGEN03 
is used for all other record formats. The 
entire segment consists of these three 
modules and the following routines: IEBE- 
DIT2, IEBLENP2, IEBMOVE2, IEBC0NH2, IEB- 
C0NP2, and IEBCONZ2. 

IEBGENS3 

for variable spanned records, this 
processing module either gets and puts 
logical records or reads and writes 
physical blocks, depending on DD card 
parameters and/or information in the 
data set control block. The module 
links to editing and/or conversion 
subroutines as required by control 
statements. It returns control to the 
root module. 

IEBGEN03 

for all but variable spanned records, 
this module reads the input from the 
SYSUT1 data set, deblocks the records, 
edits them if required, and writes the 
output on SYSUT2 with proper blocking. 
The module links to editing and/or 
conversion subroutines as required by 
control statements. It returns con- 
trol to the root module. 

IEBEDIT2 

moves the logical records from the 
input buffer to the output buffer with 
field editing. One field is moved at 
a time, and converted if necessary. 

IEBLENP2 

calculates the total length of the 
output records based on the lengths of 
the fields to be moved. Conversion is 
then performed on each. 

IEBM0VE2 

moves bytes of data from one area of 
main storage to another. 
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Root Segment 



Control Card 
Analyzer Segment 



Processor Root 
Segment (IERGENR3) 



Processing for 
User Labels 



Spanned Record 
Processor (IEBGENS3) 



These modules are mutually exclusive 



Non-Spanned Record 
Processor (IEBGEN03) 



•Figure 45. Overlay Structure of the 
IEBGENER Program 



IEBCCNH2 

converts the data from H-set BCD to 

EBCDIC characters. 
IEBCCNP2 

converts the data from packed to zoned 

decimal format. 
IEBCCNZ2 

converts the data from zoned to packed 

decimal format. 



Charts 45 and 46 show the flow of con- 
trol through the IEBGENER program. After 
the program is entered, it sets switches, 
assigns data areas, analyzes linkage para- 
meters, and opens SYSPRINT. A header line 
with user initial page number (if any) is 
written on SYSPRINT at this time. 



The control card analyzer, IEBGSCAN, 
picks up the control statements from SYSIN 
and places them within the IEBGENER 
program. 



The DD name for each data set is picked 
up from the DD name list and stored in the 
HDDNAMES table. Then the input (SYSUT1) 
and the output (SYSUT2) data sets are 
opened. A user exit may be taken at this 
point to process user header labels. 

Next, a physical record is read into the 
read buffer and then moved to the input 
work area for deblocking and processing. 
At this point, the record is available to 
the user via a user exit 



The program reads the next physical 
record from the input data set to refill 
the vacated input buffer. 



Logical records are moved one at a time 
to the output work area. If editing is 
requested by the user, the requested conv- 
ersion of each field of each logical record 
is performed. 

A test is performed before a record is 
moved from the input work area to the out- 
put work area to determine whether space is 
available in the output work area. If 
space is not available or if the output 
work area contains the last record of a 
partitioned data set, records in the output 
work area are moved to the output buffer 
and written on the output data set. If the 
output contains keys, the keys are also 
written out. A user exit permits the user 
to insert keys. 

A test follows the movement of each 
record from the input to the output work 
areas to determine whether the output data 
set is partitioned or sequential. If the 
output data set is partitioned and the last 
record for a member was previously written, 
the member name and aliases are stored in 
the directory. 

After the last record is processed and 
written, the input and output data sets are 
closed. During the closing a user exit may 
be taken to process user trailer labels. 
Control is then returned to the invoker. 
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•Chart 45. IEBGENER - Copying and Modifying Records (Part 1 of 2) 



**** 
* * 

* A3 * 
**** 



****A1 ********* 

* * 

* ENTRY * 

* * 
*************** 



***************** 



IEBGENR 

*****A2 ********** 

* SET SWITCHES. * 

* ASSIGN DATA * 
>* AREAS. OPEN * 

* SYSPRINT * 



***************** 



*****B2** ******** 
*IEBGSCAN * 
*-*-*-*-*-*-*-*-* 
* CONTROL * 
» CARD * 
ANALYZER 



*+***A3 ********** 

* * 
*-*-*-*-*-+-*-*-* 

* USER DATA * 

* ROUTINE * 

* * 
***************** 



**** 

* * 

* B4 * 



***************** 



******B4 *********** 

* READ * 

A 

* RECORD * 

************* 



********** 



EXIT IF 
SOL IS 
SPECIFIED 
**C1******* ON DD CARD *****C2** 

* * >* SA VE 

OPEN * * LABEL 

INPUT * * INFORMATION 

DCB < -i * IF NECESSARY 



*********** 



***************** 



EXIT 

. * 

*. .* 

* YES 



**+**D3* ********* 

* * 
*-*-*-*-*-*-*-*-* 

-* USER INPUT * 

* READER * 

* ROUTINE. * 
***************** 



**** 
* * 

> Ft * 

► * 
**** 



EXIT IF 
SUL IS 
SPECIFIED 
**E1******* ON DD CARD *****E2 

k * >* M 0VE LABEL 

OPEN * 
OUTPUT * 
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2*********4 



*********** 
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***************** 
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*. .* 
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*. .* 
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*46 * **** 
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**** 




i' 




7 
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* 
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* OUTPUT 
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* 


* WORK AREA 


HEADER 




* TO BUFFER 
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* 
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***************** 



IEBGENS3 .*. 
G3 
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***************** 



******Gl) *********** 



************* 
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***** 


**** 
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* 


**•* 
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*****H3********** 


* 
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* 
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**** 

* * 

* B5 * 

* * 
**** 



******B5*********** 



************* 



************* 



**** 

♦ 45 * 

* J2 *-> 



**** 

*****J2********** 

* * 

* MOVE * 

* BUFFER TO * 

* WORK AREA * 

* * 
***************** 



************* 



USER 
DATA 
EXIT 



*****K3** ******** 



**** .* 




* 




* 


* * NO .* USER 


*. YES 


*- 




-*-*-*-*-*-*-* 


* BU *< *. DATA 


.* , 






USER * 


* * - *. EXIT 


•* 1 


* 




ROUTINE * 


**** *. 


* 1 


* 




* 


*. .* 


V 


***************** 


* 


**** 

* * 

* A3 * 

* * 






L 








V 




**** 






**** 

* * 

* B5 * 

* * 
**** 



*****J*t*********4 



* OUTPUT * 

* * 
***************** 



l<- 



***** 

♦ 46 * 

* B4* 
* * 



r 


* 
* 


END *. 
OF DATA 

.* 
* . . * 
*. .* 


**** 




* YES 
I 


H3 * 

* 




i 


**** 




***** 

*46 * 

* Gt* 

* * 



USER 

KEY 

EXIT 



*****J5*** ******* 

* * 
*-*-*-*-*-*-*-*-* 

* USER * 

* KEY * 

* ROUTINE * 
***************** 
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•Chart 46. IEBGENER - Copying and Modifying Records (Part 2 of 2) 
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RECORD OF 
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*****E4 ********** 
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***************** 
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*. RECORD .* 1 
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*. .* V 
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**** 
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IEBGENR3 
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INPUT i * ....>* INFORMATION * 

OUTPUT * * INTO BUFFER * 
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*********** 



****K4 ********* 

* * 

* RETURN * 
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*************** 



***************** 



USER 
TRAILER 
. LABEL 
*.EXIT .* 



*****J5 ********** 

*-*-*-*-*-*-*-*-* 
-* USER TRAILER * 
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* ROUTINE * 
***************** 



NOTE 1 I 
EXIT IF 
SUL IS 

SPECIFIED ON 
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Printing and Punching Records 
(IEBPTPCH) 

The IEBPTPCH program prints or punches all 
or selected portions of a sequential data 
set, a partitioned data set, or specified 
members of a partitioned data set. 

The input to the IEBPTPCH program can be 
either a sequential or a partitioned data 
set. The input records can be U, F, or V 
format. If F or V format, they can be 
blocked or unblocked. 

The output of the IEBPTPCH program is 
put on a printer or a card punch. Note 
lists are permitted in the output only when 
the standard format is used. 



PROGRAM STRUCTURE 

The program (Figure 46) consists of three 
segments: the root segment, the control 
card analyzer segment, and the processor 
segment. 



The Processor Segment 

The processor segment performs the printing 
and punching operations. It consists of 
twelve routines; PRPUN, TOTAL, MEMBLOC, 
PPSDS1, RDCH, PREFORM, RECDL0C1, RECPROC, 
RECPREP, FORMS, FORMU, and CLOSEIO. 



PRPUN 



examines the parameters supplied by 
the PPANL routine in the control card 
analyzer segment and performs initia- 
lization based on these parameters. 

TOTAL 

reads the directory, extracts the name 
and location of each entry, and sorts 
the entries by TTR and alias indicator 
so that members can be written in the 
order of their physical occurrence in 
the data set and written only once. 

MEMBLOC 

obtains the name and location of the 
next partitioned data set member to be 
written and then positions the data 
set so that the member can be read. 
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Figure 46. Overlay Structure of the 
IEBPTPCH Program 

The Root Segment 

The root segment initializes the pro- 
gram, and consists of one routine, PRPCH, 
which links to PPANAL. 

The Control Card Analyzer Segment 

The control card analyzer segment reads and 
processes the control cards. It consists 
of two routines: PPANAL and ACTCCS. 

PPANAL 

calls ACTCCS to process the control 
cards and then, based on the parame- 
ters supplied in the control cards, 
sets switches and creates parameter 
tables . 

ACTCCS 

opens SYSIN, reads the control cards 
and then passes the location, length, 
and identification of the parameters 
to PPANAL. 



PPSDS1 

determines whether there are user 
written record groups. If no editing 
is indicated, it prepares to write the 
sequential data set or the member in 
the standard format. It also prepares 
to skip logical records within the 
member or the sequential data set. 

RDCH 

reads a physical record. If note 
lists are to be omitted and the cur- 
rent record is a note list, another 
physical record is read. 

PREFORM 

deblocks and writes out the records if 
PREFORM is specified. 

RECDL0C1 

deblocks the physical record. 

RECPROC 

initiates logical record processing, 
examines the identification (ID) of 
the record to determine if it is last 
record in a group, examines the logic- 
al record count to determine if the 
record should be skipped, and provides 
the user access to the input record. 

RECPREP 

tests for the end of page on printed 
output and determines the format for 
the current logical record. 



FORMS 



writes a logical record in the stan- 
dard format. If necessary, it seg- 
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ments the input record into multiple 
output records. 

FORMU 

edits a logical record in accordance 
with user specifications. Before the 
record is written, the user can again 
access the output record. 

CLOSEIO 

prepares to end the task and relin- 
quish control to the control program 
or the invoker. 



PROGRAM FLOW 

Chart 47 shows the flow of control 
through the IEBPTPCH program. After the 
program is entered, it sets switches, 
assigns data areas, and analyzes the 
internal system-provided parameters. A 
header is written on SYSPRINT at this time, 
using the optionally supplied initial page 
number. 

The control card analyzer routine (PPAN- 
AL) picks up the control statements from 
SYSIN and places them in tables within the 
IEBPTPCH program. The output data set, 
(SYSUT2) is then opened for printing or 
punching . 

If the input data set, SYSUT1, is parti- 
tioned and the entire data set is to be 
read and processed, the program reads the 
directory and extracts the name and loca- 
tion of each entry. The entries are then 
sorted by TTR and alias so that members can 
be written in the order of their physical 
occurrence on the direct access device. 

Next, initialization is performed to 
enable the input data set to be read. A 
user exit can be taken at this point to 
process the user header label on the input 
data set if it is sequentially organized. 

If the user's routine returns an action 
code of 16, the utility program will com- 
plete the opening of the input data set, 
print and punch (if so specified) any head- 



er labels that have already been read (up 
to the point for which the action code was 
set) , close the input data set, and termin- 
ate the processing. The utility will then 
return control to the supervisor. 

If the input data set contains variable 
spanned records, the DCB exit routine, dur- 
ing the opening of the SYSUT1 data set, 
tests the record length and the record for- 
mat parameters. The action taken is indi- 
cated in Figure 47. 

After the data set has been opened, the 
access method indicator field in the DCB is 
set to indicate the use of the QSAN MOVE 
mode. 

If the input data set is partitioned, 
the name and location of the member that is 
to be processed is obtained and the data 
set is positioned so that the member can be 
read. 

Any user-supplied titles are written at 
this time. If the input is partitioned, 
the member currently being processed is 
identified. A new page is started for 
printed output or a new sequence number is 
initiated for punched output. The program 
then determines whether there are user 
written record groups and performs initia- 
lization accordingly. If there is no edit- 
ing, initialization is performed to process 
the i. aquential data set or member in the 
standard format. 

The RDCH routine reads a physical record 
and determines whether a note list is pre- 
sent. If the physical record is a note 
list and it is to be omitted, the routine 
reads the next physical record when the 
basic sequential access method is being 
used. When the queued sequential access 
method (QSAM) is used, the routine gets a 
logical record. QSAM is used only for a 
sequential data set having both a logical 
record length that does not exceed 32,756 
bytes and variable spanned records. 

The PREFORM routine deblocks and writes 
out records if the user has control charac- 
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| IRECL 
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JVS or VBS 

I 

I 
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JVS or VBS 
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|RECFM field in utility work area is set to U. | 
JLRECL field in utility work area is filled with the) 
I DCB blocksize. | 
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32,756 



JRECFM field in utility work area is set to V. | 
JBLKSIZE field in utility work area is filled with | 
I the DCB logical record length. j 

jl J 

Work Area Settings for Support of Variable Spanned Records 



•Figure 47. 
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ters in the input data set and specifies 
the keyword PREFORM. All other control 
statement requests are ignored, but are 
checked for validity. 

The RECDL0C1 routine deblocks the phys- 
ical record and obtains the length and 
location of the next logical record. When 
no logical records remain in a block, the 
RECDL0C1 routine returns to the RDCH rou- 
tine, and another physical record is read. 

A user exit can be taken at this point 
to process a logical record before it is 
processed by the program. 

The processing of a logical record 
includes checking the record ID to deter- 
mine whether it is the last record in a 
record group and testing the record count 
to see if the record should be skipped. If 
the record is the last record of a record 
group, a switch is set for subsequent test- 
ing. If the record is to be skipped, con- 
trol is passed to the end of record group 
test. 

Next, the output format of the logical 
record is tested to determine if it is to 
be standard or user defined. The FORMS 



routine writes a logical record in the 
standard format; and when necessary, seg- 
ments the input record into multiple output 
records. The FORMU routine edits a logical 
record a according to user specifications. 
A user exit may be taken before the record 
is written to allow the user to perform 
additional editing. 



After the last record in each record 
group is written, the NEXTGR routine per- 
forms reinitialization to allow the next 
record group to be processed. 

When the end of data is reached on an 
input partitioned data set, the name and 
location of the next member is obtained and 
the data set is positioned to the next mem- 
ber. When the end of data for the last 
member or for a sequential data set is 
reached, the input data set is closed. A 
user exit can be taken at this point to 
process the user trailer on the input data 
set if it is sequentially organized. 

The processing of trailer labels employs 
the same use of return action code 16 as 
described in this section for header label 
processing. 
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•Chart 47. IEBPTPCH - Printing and Punching Records 



****A1********* 

t * 

* ENTRY * 

* * 
*************** 



* INITIALIZE * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 

* READ AND * 
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***************** 
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♦PRINT OR PUNCH * 

* OUTPUT * 

* * 
***************** 



PPOPEN ' ' 

*****E1********** 
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* PREPARE TO * 
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* * 
***************** 



TOTAL PDS 



* PREPARE TO * 
♦READ THE INPUT * 

* DATA SET * 

* * 
***************** 



. * USER ♦ 

*. HEADER LABEL 

*. EXIT .♦ 



PDS INPUT 



*****K1 ********** 

* * 

* WRITE ANY * 

* USER SUPPLIED * 

* HEADERS * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



**** 

* * 

* Ab * 



PREFORM 

*****C2 ********** 

* DEBLOCK * 

* AND WRITE OUT ♦ 

* THE *- 

* PREFORMATTED ♦ 

* RECORD * 
***************** 



PPSDS1 

*****B3********** 

* PREPARE TO * 

* WRITE ONE OR * 

* MORE RECORD * 

* GROUPS * 

* * 
***************** 



* LOCATE THE * 
->* NEXT PHYSICAL * 
RECORD * 



* WRITE LOGICAL * 

* RECORD IN THE *<- 
♦STANDARD FORMAT* 

* * 
***************** 



**** 

* * 

* E5 * 

* * 
**•* 



* EDIT * 

* THE LOGICAL * 

* RECORD * 

* * 
***************** 



* * 

* C3 * 

* * 
**** 



**************** 



*****Ct ********** 

* * 
*-*-*-*-*-*-*-*-* 

♦ ♦< 

♦ USER ROUTINE * 

* * 
***************** 



USER EXIT 



.* *. **** 

* *. YES * * 
END OF DATA .* >* F5 * 
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* * 

* WRITE * 
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* RECORD * 
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***************** 
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♦♦***F2 ********** 
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***************** 
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***************** 
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**** * NO 

* * 

* C3 * 

* * 
**** 



*****G2** ******** 

* * 
*-*-*-*-*-*-*-*-* 

* *< 

* USER ROUTINE * 

* * 
***************** 



G3 



USER EXIT 



**** 

* 
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**** 
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RECORD 
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***************** 



**** 
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*-*-*-*-*-*-*-*-* 
>* USES * 

* HEADER LABEL * 

* ROUTINE * 
***************** 
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***************** 



***************** 
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***************** 
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*. EXIT .* 
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**** **** 

* * 
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****K5 ********* 

' RETURN * 

t * 

*************** 
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Operating on an Indexed Sequential 
Data Set (IEBISAM) 



a work area, then inspects the specifica- 
tions under which the program is to run. 



The IEBISAM program is executed under the 
operating system to copy, unload, load, or 
print an indexed sequential data set. As 
examples, this program can be used to cre- 
ate a back-up copy of a data set, or to 
improve the accessibility of a data set by 
eliminating wasted track space and overflow 
areas. The program, which may be either 
executed as a job step or called by an 
executing program, consists of six load 
modules (see Chart 48) that reside in the 
linkage library, LINKLIB. 

The Initializing routine determines 
which function has been specified, then 
passes control to one of four functional 
(or processing) modules. The selected pro- 
cessing module performs its specified func- 
tion, then passes control to the Terminat- 
ing routine, which writes messages, ter- 
minates processing, and returns control to 
the calling routine. (Note: If invalid 
specifications or parameters have been spe- 
cified, the Initializing routine sets the 
appropriate message and completion code 
indications and gives control directly to 
the Terminating routine.) 

The IEBISAM program may be executed as a 
job step, or it may be called by a program 
executing a job step. If it is to be 
executed as a job step, the step*s EXEC 
statement specifies the program IEBISAM, 
and the EXEC statements PARM field speci- 
fies the function to be performed as a 
parameter (COPY, UNLOAD, LOAD, or PRINTL) . 
If the IEBISAM program is to be called by a 
program executing a job step, the calling 
program must specify the function by pro- 
viding * EXEC statement parameters* and 
ddnames as shown in this publication in the 
section "Auxiliary Parameters." In either 
case, the job control language statements 
that describe the step during which IEBISAM 
is to be executed must include DD state- 
ments to define the input, output, and mes- 
sage data sets. 

Figure 48 gives a module directory and 
summary for the IEBISAM program, and Charts 
49-56 outline the individual routines of 
the program. For more information regard- 
ing the use of the program, refer to the 
SRL publication IBM System/360 Operating 
System; Utilities ; Form C28-6586. 



INITIALIZING IEBISAM 

The Initializing routine is in the load 
module (IEBISAM) that is entered whenever 
the IEBISAM program is requested. This 
routine (Chart 49) obtains main storage for 



If no options have been specified in the 
PARM field of the EXEC statement, the pro- 
gram assumes the (default) option to unload 
the data set. If a function specification 
is not valid, this routine stores a comple- 
tion code, assembles a message, and uses 
the XCTL macro instruction to pass control 
to the Terminating routine, IEBISF. 



In all other situations (i.e., those in 
which correct procedures have been fol- 
lowed) , the Initializing routine assembles 
the necessary information and gives control 
to the appropriate module. 



COPYING AN INDEXED SEQUENTIAL DATA SET 

If the copy function was specified, control 
is passed to the Copy routine in module 
IEBISC. This routine creates an output 
data set containing the same records as the 
input data set, but with newly built inde- 
xes and empty overflow areas. The Copy 
routine (Chart 50) opens the input data set 
(SYSUT1) and the output data set (SYSUT2) 
for use by QISAM and checks the DCB 
parameters j 

• The DCBLRECL parameters must be the 
same for both the input and the output 
data sets. 

• The DCBRECFM parameters must- be the 
same (F or V) for both the input and 
the output data sets. 

• For the output data set, the DCBBLKSI 
parameter must be a multiple of the 
DCBLRECL parameter. 

• The DCBRKP parameter must be smaller 
than the DCBRECL parameter minus the 
DCBKEYLE parameters. 

If the input and output data sets are 
opened successfully, and the DCB parameters 
are valid, the Copy routine uses the PUT 
(locate mode) and the GET (move mode) macro 
instructions to read the records in logical 
sequence from the input data set and write 
them into the output data set. 

If the data sets are not opened success- 
fully, if the DCB parameters are not valid, 
or if an unrecoverable input/output error 
is encountered, the routine stores both a 
completion code and a message code. Pro- 
cessing on the data set is terminated; the 
data sets are closed ; and control is given 
to the Terminating routine. 
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Summary 



IEBISAM 



IEBISAM 



Receives control from calling routine. 

Gets work area used by processing modules* 

Gets program parameters, alternate ddnames, page number. 

Passes control to appropriate module. 
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IEBISC 
(Copy) 



IEBISC 



Produces copy of input data set with new indexes. 
Uses PUT and GET macro instructions. 
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IEBISU 
(Unload) 



IEBISU 



Retrieves an indexed sequential record and passes its length 
and address to IBISSO. 

Analyzes return code from, IEBISSO and sets success or error 
indication for IEEISF. 



IEBISSO 



Unloads the indexed sequential record (s) into physically 
sequential 80-byte card images. 



51 



52 



IEBISL 
(Load) 



IEBISL 



Reconstructs an indexed sequential record from 'unloaded* 

data passed by IEEISSI. 

Checks DCB parameters OPTCD, RECFM, LRECL, BLKSIZE, RKP f 

NTM, KEYLEN, and CYLOFL against corresponding DD statement 

information. 



IEBISSI 



Retrieves unloaded (80-byte card images) records 

Maintains pointer to current input area. 

Maintains number of bytes remaining to be processed on a 

given card image. 

Checks each card image for proper sequence. 
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IEBISPL 
(Print) 



IEBISPL 



Produces printed copy of input data set. 
Provides for user exit and/or suppression of data 
conversion. 
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IEBISF 



IEBISF 



Receives control from initializing or processing module. 
Prints appropriate message and returns completion code to 
calling routine. 
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Figure 48. Module Directory, Summary, and Chart IDs for IEBISAM Program 



UNLOADING AN INDEXED SEQUENTIAL DATA SET 

If the unload function was specified, con- 
trol is passed from the Initializing rou- 
tine to the Unload routine (in module IEBI- 
SU) to create a physical sequential data 
set containing the information from the 
input (indexed sequential) data set. This 
information is put in 80-byte card images 
on either a magnetic tape volume or a 
direct access volume. Figure 49 illus- 
trates the data flow and format during 
unloading operations. 

Module IEBISU contains two control sec- 
tions (CSECTs): IEBISU (Chart 51), which 
reads records in logical sequence from an 
indexed sequential data set; and IEBISSO 
(Chart 52), which reblocks the records and 
writes them into a physical sequential data 
set. 

Obtaining Indexed Sequential Records 

After module IEBISU is entered at CSECT 
IEBISU, the Unload routine opens the input 



data set and determines the format of the 
records. (If the relative key position is 
the high-order byte of the record (i.e., 
DKBRKP equals zero) , the key field is 
treated separately when the records are put 
into the output data set.) 

CSECT IEBISU uses CSECT IEBISSO as a 
subroutine; initially, IEBISU passes con- 
trol to IEBISSO to open the output 
(unloaded) data set, then again to write 
the input (indexed sequential) DCB into the 
output data set. After the DCB has been 
written, IEBISU uses the GET (locate mode) 
macro instruction to obtain a record from 
the input data set, then passes control to 
CSECT IEBISSO. 

Building the Output Data Set 

CSECT IEBISSO performs the reblocking and 
writing of the input indexed sequential 
records into the output data set. The out- 
put data set is a physical sequential data 
set consisting of 80-byte logical records. 
The 80-byte records contain the key and 
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data fields of the indexed sequential data 
set, together with length indicators and 
sequence numbers (see Figure 49). 

The first 154 bytes of DCE information 
for the indexed sequential data set are 
written in the first two physically sequen- 
tial records (those with sequence numbers 
zero and one) of the output data set. The 
first 80-byte logical record contains the 
physical sequence number zero, followed by 
the length indicator 154. (The length 
indicator represents the number of bytes 
between one length indicator field and the 
succeeding length indicator field.) The 
first 76 bytes of the DCB for the input 
data set complete the first logical record. 
The second 80-byte logical record contains 
the sequence number one, followed by the 
next 78 bytes of the input data set's DCB. 
The information in the first 154 bytes of 
the input DCB includes the following 
fields: CPTCD, RECFM, LRECL, BLKSIZE, RKP, 
NTM, KEYLEN, and CYLOFL. (See Figure 47, 
and the section "Data Control Block — ISAM" 
in the publication IBM System/360 Operating 
System; System Control Elocks , Form C28- 
6628.) The remaining 80-byte logical rec- 
ords (beginning with sequence number two) 
contain the images of the records in the 
input data set. The last 80-byte logical 
record of the unloaded (physical sequen- 
tial) data set contains from zero to two 
bytes of zeros following the last byte of 
input record data. 

At the first entry to CSECT IEBISSO, the 
Unload routine opens the output DCB and 



checks the DSORG and BLKSIZE parameters: 
the DSORG parameter must be PS, and the 
BLKSIZE parameter must be multiple of 80. 
If the opening is successful and the para- 
meters are valid, the routine issues a PUT 
(locate mode) macro instruction to write 
the DCE in the output data set. This 
information and control of the Unload rou- 
tine are then returned to CSECT IEBISU. 



On subsequent entries to CSECT IEBISSO, 
the output buffer is filled with indexed 
sequential records obtained by CSECT IEBI- 
SU. The routine stores the record length 
indicator first, then it stores the record 
key and data fields, when the routine 
finds the end of an input record, it 
returns control to CSECT IEBISU to obtain 
another record; when it has filled the 
input buffer, the routine issues a PUT 
(locate mode) macro instruction to write 
the contents of the buffer into the output 
data set. The physical sequence number for 
the output data set records is then 
updated. 



If CSECT IEBISSO encounters an error 
condition (e.g., unsuccessful open, invalid 
DCB parameters, or an uncorrectable I/O 
error), it closes the output data set, sets 
the appropriate return code (see Chart 51) , 
and returns control to CSECT IEBISU. 
IEBISU then sets both a message and a com- 
pletion code, closes the input data set, 
and passes control to the Terminating 
routine. 
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Direct-Access Storage 







Using successive GETs, 
an indexed sequential 
record is read. Each 
logical record is prefixed 
with a 2-byte LRECL 
(Logical Record Length) 



© 



Unloaded ISAM Record 
(Physical Sequential) 




© 



© 



The prefixed ISAM 
logical records are 
reblocked into 78-byte 
logical record images, 
each of which is 
prefixed with a 2-byte 
physical sequence 
number 



The 80-byte unloaded 
records are written 
using successive PUTs 



During a subsequent 
LOAD execution, 
unloaded records are 
read (using GET) in 
sequence until an 
ISAM record can be 
rebuilt 



© 



© 



The sequence numbers 
are stripped and the 
record is rebuilt 



The record is written 
using successive PUTs 



Note: The current version of ISAM supports only fixed-length records, 



Sequence 
Number 



Sequence 
Number 1 



Sequence 
Number 2 



Sequence 
Number 3 



Sequence 
Number 4 



Sequence 
Number 5 



80 Bytes 
(logical record length) 



154 



Input DCB Data 
(Beginning through DCBMSHI) 



Input DCB Data 
(DCBSETL through DCBRORG3) 



Length 
Indicator i 



First Input Record 



put Record 



Length 
Indicator 3 



Key 2 



Length 
Indicator 2 



Third Input Record 



Sequence 
Number N 



Key, 



End of Last Input Record 



Illustration of M indexed sequential input records 
contained in (N-1) unloaded output records. 



Ke/l 



Second In- 



Key 3 



76 



78 



A Superscripts indicate number of bytes 
in a field. 



Note: A complete record consisting 
of data and key is included 
between successive length 
indicators. 



Zero Bytes 



■ Last record indicator 



Figure 49. Unloading and Loading an Indexed Sequential Data Set 
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LOADING AN INDEXED SEQUENTIAL DATA SET 

The Load routine is used to reconstruct an 
indexed sequential data set from an 
unloaded copy of the physical sequential 
data set. The output data set resulting 
from the loading function is placed on a 
direct access volume. If the original 
indexed sequential data set contained rec- 
ords in an overflow area, these records 
will appear sequentially arranged with the 
records from the original primary area when 
the unloaded data set is reloaded. 

To perform the load function, the 
Initializing routine gives control to CSECT 
IEBISL of module IEBISL (see Chart 53). 
The Load routine performs its own initia- 
lizing functions, then branches to CSECT 
IEHISSI of the same load module to get the 
length and address of an input record from 
the unloaded data set. If the return to 
CSECT IEBISL from CSECT IEHISSI indicates a 
return code other than zero, the appropri- 
ate message number and/or completion code 
are established, the output data set (if it 
had been opened as described later on) is 
closed, and control is given to the Ter- 
minating routine. 

If CSECT IEHISSI returns the requested 
information and a return code of zero when 
it gives control back to CSECT IEBISL, 
CSECT IEBISL opens the output data set and 
checks the validity of the DCB fields. An 
inconsistency (or error) detected during 
either of the latter operations leads to 
procedures for closing the data set as pre- 
viously described. Otherwise, if no error 
is detected, the PUT macro instruction is 
used to place the record information in the 
new indexed sequential (output) data set. 

When all records from the unloaded (old) 
data set have been transferred to the new 
data set, the old data set is closed and 
control is given to the Terminating 
routine. 

In reconstructing the new data set, the 
•information in the first two logical rec- 
ords of the unloaded data set is used in 
establishing the DCB for the new data set. 
The last 78 bytes of each subsequent 80- 
byte logical record are used to build the 
records of the new data set. 

CSECT IEBISSI (Chart 54) opens the input 
(unloaded) data set and checks for the 
validity of the DCB parameters for that 
data set. Should either the opening be 
unsuccessful or a DCB parameter be invalid, 
the data set is closed and return is made 
to CSECT IEBISL. Otherwise, CSECT IEEISSI 
proceeds to get information from the logic- 
al records of the unloaded data set and to 
transmit it to CSECT IEBISL so that it may 
be placed in the new indexed sequential 



data set. The GET and PUT macro instruc- 
tions are used for these operations. The 
preceding procedures continue until either 
the end of the input data set is reached or 
a terminating error condition is reached. 
For both situations, the input data set is 
then closed, and control is returned to 
CSECT IEBISL. 



PRINTING LOGICAL RECORDS OF AN INDEXED 
SEQUENTIAL DATA SET 

In order to obtain a printed copy of an 
indexed sequential data set, a user speci- 
fies the keyword PRINTL in the PARM field 
of an EXEC statement. The queued indexed 
sequential access method (QISAM) is used to 
obtain the records from the input data set. 
The records are selected in logical 
sequence from both the prime and the over- 
flow areas of the input data set. To write 
the records, the queued sequential access 
method (QSAM) uses a PUT macro instruction. 
Record conversion (to hexadecimal notation) 
and/or user exits before record printing 
may be specified as options. 

After module IEBISAM gives control to 
the print module IEBISPL (Chart 55), both 
the input and the output data sets are 
opened, the success of the openings is 
determined, and the DCB parameters are 
checked for validity. If an error is 
encountered in any of the preceding opera- 
tions, steps are taken to close the data 
sets and give control to the Terminating 
routine. 

If the data sets have been opened suc- 
cessfully and the DCB parameters are valid, 
the Print routine proceeds to place a rec- 
ord in a buffer area prior to printing it. 
At this point, a user's routine may gain 
access to the record if the proper specifi- 
cation has been given on the EXEC state- 
ment. Upon return from the user's routine 
with a return code of either or 4 (see 
the return code table on Chart 55) , or if 
no user exit was taken, the data in the 
buffer is converted to hexadecimal notation 
unless the no-conversion option has been 
specified. The PUT macro instruction is 
then issued to print the record on a SYSOUT 
device. After all input data records have 
been printed, or if the routine encounters 
an unrecoverable error, the input and out- 
put data sets are closed and the Terminat- 
ing routine is given control. 

Note : A more complete interpretation of 
the codes returned to the print module 
IEBISPL by a user's exit routine is given 
below : 

Code 0; The record currently in the 
buffer is to be printed, and processing 
of the input data set is to continue. 
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Code 4 ; The record currently in the 
buffer is to be printed, but processing 
of the input data set is to be ter- 
minated after the printing. 

Code 8 : The record currently in the 
buffer is not to be printed. Processing 
of the input data set is to continue. 

Code 12 : The record currently in the 
buffer is not to be printed, and proces- 
sing of the input data set is to be 
terminated. 



TERMINATING THE IEBISAM PROGRAM 

Each of the other routines of the IEBISAM 
program may give control and a completion 
code to the Terminating routine (in module 
IEBISF) . The basic function of the Ter- 
minating routine is to write an appropriate 
message on the SYSPRINT data set. This 
message indicates the result of the use of 
the IEBISAM program. 



When module IEBISF (see Chart 56) gains 
control, it opens the output (SYSPRINT) 
data set. If the opening is unsuccessful, 
the approriate completion code (16) is set, 
the SYSPRINT data set is closed, and con- 
trol is returned to the source from which 
the IEBISAM program was initially given 
control. 



After a successful opening of the output 
data set, the PUT macro instruction is used 
to write the message concerning the pro- 
gram's result. If an error is encountered 
during writing, a completion code of 8 is 
set and returned to the caller of the 
IEBISAM program. (The completion codes 
shown on Chart 56 are those resulting from 
processing actvity by module IEBISE.) If 
no error is encountered during writing, the 
Terminating routine established a comple- 
tion code based upon the results of the 
routine from which the Terminating routine 
received control. This code, and program 
control, are then given to the caller of 
the IEBISAM program. 
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chart 48. IEBISAM - Overall Flow 



****B3 ********* 

► * 

* ENTRY * 

i> * 

*************** 



*-*-*-*-*-*-*-*-* 



***************** 



•****D1 ********** 
♦IEBISU 51* 
+-*-*-*-*-*-*-*-* 

* CREATE * 

* UNLOADED * 

* DATA SET * 
***************** 



L 



*****Q2 ********** 

♦IEBISL 51* 
*-*-*-*-*-*-*-*-* 

* LOAD * 

* RECORDS * 

* * 
***************** 



*****D4 ********** 
♦IEBISC 50* 
*-*-*-*-*-*-*-*-* 

* COPY * 

* DATA SET * 

* * 
***************** 



*****D5 ********** 
♦IEBISPL 55* 
*-*-*-*-*-*-*-*-* 

* PRINT * 

* LOGICAL * 

* RECORDS * 
***************** 



*****E3* ********* 
*IEBISF 56* 
*-*-*-*-*-*-*-*-* 

* TERMINATE * 

* PROGRAM * 

* * 
***************** 



****F3 ********* 
It * 

► RETURN * 

► TO CALLER * 
*************** 
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Chart 49. IEBISAM - Initialize IEBISAM Program 



****A2******** 

* ENTRY 
t 
************** 



* ESTABLISH * 
♦ADDRESSABILITY * 

* (REGISTER) * 

* * 
***************** 



**C2******* 

♦ SVC 10. ♦ 
GETMAIN 

WORK AREA 
FOR 

* PROGRAM * 
*********** 



*****D2 *♦****♦♦♦* 
♦ PROGRAM * 
♦INITIALIZATION * 



***************** 



**** .♦ * 

* * NO .* ARE 

» B5 *< *. OPTIONS 

* * *. VALID 



*****G2 ********** 

* REFLECT * 

* OPTIONS * 

* BY SETTINGS * 

* IN WORK * 

* AREA * 
***************** 



* USE * 

* STANDARD *< 

* DDNAMES * 

* * 
***************** 



* USE * 

* DDNAMES * 

* PROVIDED * 

* * 
***************** 



***************** 



SUPPLY1 V 

*****dH ********** 

* USE PAGE * 

* NUMBER * 

* SUPPLIED OS * 

* ASSUME ONE * 

***************** 



*****Cfi ********** 

* UPDATE AND * 

* RESTORE * 

* PAGE NUMBER * 

* FOR CALLER * 

* * 
***************** 



♦CHECK THE DATE * 

* * 

* * 
***************** 



ONWARD 1 V 

*****E4 ********** 

* * 

* PREPARE * 
♦FOR PROPER EXIT + 

♦ VIA XCTL ♦ 

♦ ♦ 
***************** 



****f>4 ********* 
SVC 7. XCTL ♦ 
TO REQUIRED ♦ 
MODULE ♦ 

*************** 



NOTE 1: 

MESSAGE NUMBER = 

COMPLETION CODE 



♦ ♦♦* 

* * 

* Bi ♦ 

* * 

♦ ♦** 



ASSUMECY V SEE NOTE 1 
*****£;i* ********* 

♦ SET MESSAGE ♦ 

♦ NUMBER AND ♦ 

♦ COMPLETION ♦ 

♦ CODE * 

♦ * 
***************** 



*****C5* ********* 

♦ PREPARE ♦ 

♦ FOR XCTL ♦ 

♦ EXIT TO ♦ 

♦ TERMINATE ♦ 

♦ * 
***************** 
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Chart 50. IEBISAM - Copy Indexed Sequential Records (IEBISC) 



ENTRY IS VIA 
XCTL FROM 
MODULE IEBISAM 
(CHART 49) 



****A2 ********* 

* 4 

* ENTRY * 

* 4 
*************** 



* ESTABLISH * 

* BASE REGISTER * 

* ADDRESS * 

* * 
***************** 



*****£2 ********** 

* * 

* MOVE DCBS TO * 
♦WORK AREA. LOAD* 

* DDNAMES. * 

* * 
***************** 



**D2******* 
► SVC 19. * 
OPEN * 
INPUT AND 4 
OUTPUT DCBS * 
* * 

*********** 



SETSW V 

*****P2 ********** 

* * 

* SET MESSAGE * 

* NUMBER AND * 
♦COMPLETION CODE* 

* * 
***************** 



**E3******* 

* + 

* PUT. * 
->* LOCATE BUFFER 

* ADDRESS * 

* * 
*********** 



**F3******* 

* GET. * 
PLACE 

RECORD IN 
BUFFER 

* * 
*********** 



SYNADOUT 

**E4******* 

* SVC 68. * 
ERROR * SET MESSAGE 

>* AND 

* COMPLETION 

* CODES * 
*********** 



SYNADIN 

**F4******* 
* SVC 68. * 
ERROR * SET MESSAGE * 

>* AND * 

* COMPLETION * 
CODES 



***** 



***** 



EODADIN 

*****G3********** 

* END OF * 

* INPUT DATA. * 
♦LAST BUFFER TO * 

* BE PURGED. * 

* * 
***************** 



**H3******* 

* SVC 20. * 

CLOSE 

INPUT AND 

OUTPUT DCBS 

* 4 
*********** 



*****J3********** 

* * 

* PREPARE FOR * 

* XCTL EXIT TO * 

* TERMINATE * 

* * 
***************** 



****K3 ********* 

* XCTL TO * 

* MODULE IEBISF * 

* (CHART 56) * 
*************** 
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Chart 51. IEBISAN. - Retrieve Indexed Sequential Records (IEBISU) 



ENTRY IS VIA XCTL 
FROM MODULE IEBISAM 
(CHART 49) 



****A2 ********* 

* * 
» ENTRY * 

* * 
*************** 



* INITIALIZE * 

* * 
***************** 



*+C2******* 

* SVC 19. * 

OPES 

INPUT 



*********** 



. * WAS * . 
* OPEN 
SUCCESSFUL 



**** 
* 
* B3 



V MOTE 2 

* ♦♦♦♦tilt**** ****** 
♦ANALYZE RETURN * 

* CODE AND SET * 
>* MESSAGE AND *- 

* COMPLETION * 

* CODES * 
***************** 



**Bb****** 

► SVC 20. 

CLOSE 

INPUT 

DC a 

F 
********** 



**** 

* * 

* B4 * 

* * 
**** 



* RETURN 

FROM FIRST 
* . ENTRY . 



OBTAIN1 

**D3******* 
* GET * 

* RECORD 
* (LOCATE 

* MODE) 

*********** 



*****E3********** 

* STORE * 

* RECORD ADDR. * 

* AND * 

* RECORD LENGTH * 

* * 
***************** 



. NOTE 1 
*****G2** ******** 
♦SAVE DCBKEYLE, * 

* INDICATE KEY ♦ 

* NEEDED. AND * 

* SET 'FORMAT* * 

* = X '11' ♦ 
***************** 



ADDKEY 

*****G3*********+ 

* STORE * 

* KEY ADDRESS, * 
♦ADD KEY LENGTH * 
*TO RCD. LENGTH * 

* * 
***************** 



EXIT VIA XdL 

TO MODULE 

IEBISF 



V NOTE 3 
*****F4********** 
* STOKE * 
*ISAM DCB ADDR. * 



*~ *-*-*-*-*-*-*- 



RETURN 
CODE 


COMPLETION 
CODE 


MESSAGES 
NUMBER 


MEANINGS 


4 

8 

12 


8 

16 

8 


2 
7 

1 


I/O ERROR 

BAD OPEN 

BAD DCB PARAMS 



THE FIRST TWO (PHYS. 
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Chart 52. IEBISAM - Unload Physical Sequential Records (IEBISSO) 



****A1********* 
t * 

* ENTRY * 

* * 
*************** 



* STORE * 
>* RECORD * 

* LENGTH * 

* * 
***************** 



**C1******* 

* SVC 19. * 

OPEN 

OUTPUT 



*********** 



. * WAS * . 
* OPEN 
SUCCESSFUL 



* DSORG * 

AND 

BLKSIZE 



ALKITE V NOTE 1 
*****pl ********** 

* INITIALIZE * 



* 'SAVE' * 

* TO 78 * 
***************** 



*****^1 ********** 

* OPERTN 52 GU * 

* PUT PHYS. * 

* SEQ. RECORD * 

* (INPUT DCB) * 
***************** 



**H1******* 

* SVC 20. * 

* CLOSE 
— >* OUTPUT 

* DCB 

* * 
*********** 



rOK V NOTE 2 
*****J1********** 

* * 

* SET * 

* RETURN * 

* CODE * 



***************** 



****K1 ********* 

► * 

> RETURN * 
k 4 

*************** 



*****D2 ********** 



**************** 



iiOWMCH . * . 


E2 *. 


SAVE .*'SAVE" *. 


LESS .* VS 


r — *. RCD. 


*. LGTH. . 


I *. + 2 .* 


V *. .* 


**** * SAVE 


* * 


GR. 01 


* BU * 


EQUAL 






**** 




ENUF V 


*****F2******* 


* STORE 


* RCD. LGTH. 


* IN 


* OUTPUT 


* BUF1 


n ER 



*****B3* ********* 

* STORE * 

* H.O. BYTE OF * 

* RCD. LGTH. *< 

* FLD. IN * 

* BUFFER * 
***************** 



* PUT * 

* PHYS. SEQ. * 

* RECORD * 
***************** 



t****D3********** 

► STORE * 
* L.O. BYTE * 

► OF RCD. * 

► LGTH. FLD. * 

► IN BUFFER * 
k*** ************* 



*****£3********** 

* UPDATE RCD. * 

* ADDRESS AND * 

* SET T SAVE' * 



***************** 



SAVE 

* 

KORE 



************** 



EASYMVE 

*****G2********** 

* STORE * 

* RCD. KEY * 

* AND DATA IN *- 

* OUTPUT * 

* BUFFER * 
***************** 



* PAD BUFFER * 
< * WITH UP TO * 

* TWO ZEROS * 

* • 
***************** 



*****G3********* 

* DECREMENT 

* 'SAVE' BY 
>* RECORD 

* LENGTH 

* +2 
**************** 



THE FIELD 'SAVE' CONTAINS THE 
NUMBER OF BYTES LEFT IN THE 
(OUTPUT) BUFFER. 



ONLY RETURN CODES ARE 
SET AT "NOT0K. T 



*****C4********* 

* STOKE 

* RCD. LGTH. 



***************** 



KACTION V 

***+*D4********** 
* OPERTN 52 G4 



-*-*-*-*-*- 



***************** 



*****E4 ********** 



***************** 



*****B5********** 

* STORE * 

* RCD. LGTri. * 
>* FLD. In * 

* OUTPUT * 

* BUFFER * 
***************** 



**** 
* 
* C5 *-> 

**** 



*****Cb********** 

* FILL * 

* OUTPUT * 

* BUFFER WlTh * 

* RCD. KEY * 

* AlMD DATA * 
***************** 



- *-*-*-* 



***************** 



WORE 

*****£5 ********** 

* UPDATE RCD. * 

* ADDRESS, RCD. * 



***************** 



. * SAVE * . SAVE 
.* VS *. LESS 

*. RCD. .* t 

*. . LGTH. .* 

*. .* I 
*. .* V 



♦ SAVE **** 
' GR. OR * * 
EQ. * C5 * 



****Gt ********* 
* 4 

► ENTRY 4 

► 4 
*************** 



**ri4******* 



*********** 



REAP 

*****J4 ********** 

* UPDATE AND * 

* STORE SEQ. * 

* NUMBER, * 

* RESET * 

* POINTERS * 
***************** 



****K4 ********* 

* RETURN TO * 
» IEBISSO AS 4 

* APPROPRIATE 4 
*************** 



OPFKTN - 
SUBROUTINE OF 
CSECT IEBISSO 



* SET * 
>* RETURN * 

* CODE * 

***************** 



**J5******* 

* SVC 20. * 

CLOSE 

OUTPUT 

DCB 

* * 
*********** 



****KS********* 

* RETURN * 
► TO IEBISU 4 

* (CHART 51) 4 
*************** 
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chart 53. IEBISAM - Reconstruct Indexed Sequential Records (IEBISL) 



**A1********* ENTRY IS 
♦ VIA XCI'L 
ENTRY *FROM MODULE 
♦IEBISAM 

************* (CHART 49) 



* REGISTER. 

* ESTABLISH 

* POINTERS AND 
♦OTnER REGISTERS* 



**************** 



TOWARD 

*****q1********** 

♦IEBISSI 51* 
*_*_*_*_*_*_*_*_* 

* GET INPUT * 

* RLCORD LENGTH * 

* AND ADDRESS * 
***************** 



►IEBISSI*. 
RETURN < 
CODE 
EQUAL . 1 



*****Q2 ********** 

* SET REG FOR * 

* LIMIT VALUE. * 

* LOAD QUI SAM * 

* ADDRESS. SET * 
♦OUTPUT UNOPENED* 
***************** 



.♦INITIAL*. 

ENTRY 

(REG = 



OUTPUT 
DATA SET 
. OPEN 



RESUME1 

**34******* 

* pur * 

* ( LOCATE ) . 

>* LOAD 

A ♦ RECORD 

I ♦ LENGTH ♦ 

1 *********** 



* C3 *-> 

» ♦ 
**** 



**C3*++** 

* SVC 19. 

OPEN 

OUTPUT 

DATA 

* SET 
********* 



*****B5 *****♦♦♦* 
* 

* LOAD 
>♦ LIMIT 

♦ ADDRESS 
* 
**************** 



**** 
* 
* CI 



DCB EXIT 



SETA, SETAS, 
SETAL, SETAL1 
SETAL2 SEE NOTE 

*****E1********^IF ANY *****E2**** + + +**^ 

♦ successively *test * set * 

* check for *positive * appropriate * 
■ return codes ♦ >* message * — 



♦OF 4, 8, 12, 16* 



******** 
IF ALL 
TESTS 
NEGATIVE 



I : 
**** 



**♦♦ 



NUMBER 
♦♦♦♦♦♦♦♦♦***♦** 



♦ DCB 
FIELDS 
ALL 
RIGHT 



ISLEXT V 

*****3U ********** 

♦ MOVE SOI'lE ♦ 

♦ DCfl FIELDS ♦ 

♦ FROM UNLOADED ♦ 

♦ DATA SET TO ♦ 

♦ NEW DATA SET ♦ 
*******+♦******** 



TLRECL 

*****£ 4********* 

* CHECK 'OLD' 
♦(UNLOADED) AND 
*'NE'«' (OUTPUT) 
♦RECORD LENGTHS 

♦ AND FORMATS 
**************** 



♦RETURN 
CODE 
EQUAL 



SETSW 

*****P2 ********** 

♦SET COMPLETION ♦ 

. YES ♦CODE AND MESS- ♦ 

.♦ >♦ AGE. (DD CARD ♦ 

♦MISSING OR OPEN+ 
UNSUCCESSFUL) * 
- ************** 



**** 
SETAL2 

VARBLE 



i " 

♦ *** 



Ft ♦. 

. ♦ ' NEW ' ♦ . 

♦ BLOCKSIZE 

VS LOGICAL 

♦. RECORD . 

♦.SIZE .* 



.♦ >♦ C3 ♦ 

A ♦ * 

**♦♦ 



Gl *. 
. * RETURN * . 
CODE * 
EQUAL 



**** 
4 * 

* E2 ♦SETAL2 

* * 
**** 



*****H1 ****♦♦♦*♦♦ 

♦ ♦ 

♦ SET MESSAGE ♦ 

♦ NUMBER =0 ♦ 

♦ (NO ERRORS) ♦ 

♦ * 
***************** 



***** jl ********** 
k * 

► STORE * 

► MESSAGE *- 

► NUMBER + 
* * 
***************** 



*****Q1|********** 

♦ CHECK SIZE * 

♦ OF RECORD KEY ♦ 

♦ LENGTH AhD ♦- 

♦ RELATIVE KEY * 

♦ POSITION ♦ 
***************** 



♦♦J2**+*+** 

* SVC 20. ♦ 

CLOSE 

OUTPUT 

DATA 

► SET ♦ 

♦♦****♦♦♦♦♦ 



*****J3********** 

* * 

♦ PREPARE FOR ♦ 
>♦ EXIT TO * 

♦ TERMINATE * 

* * 
***************** 



RETURN 
CODE 


MEANING 


MESSAGE NO. 





NORMAL (NO ERROR) RETURN 


- 


t 


SYNCHRONOUS ERROR AT INPUT 1 


2 


8 


END OF INPUT DATA 


20 


12 


CHARACTER TRANSMISSION 
LIMIT EXCEEDED 


« 


16 


INPUT OUT OF SEQUENCE 


« 


21 


INVALID DCB PARAMETER 


1 



****K3+*++****+ 

* XCTL TO ♦ 

* MODULE IEBISF + 

* (CHART 56) ♦ 
*************** 
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Chart 54. IEBISAM - Retrieve Physical Sequential Records (IEBISSI) 



***+Al********* ENTRY IS 

► *VIA BALR 

► ENTRY *FROM CSECT 

► *IEDISL 
*************** 



THIS IS CSECT 
IEBISSI OF 
MODULE IEBISL 



***************** 



.♦INITIAL*. 

ENTRY * 
(REG 0=0) 



*****D1 ********** 

* * 

* GET POINTER * 

* TO WORK * 

* AREA * 

* * 
***************** 



SKIP V 

*****£! ********* 

* SET POINTERS 

* AND ADDRESSES 

* FOR WORK 

* AND SAVE 

* AREAS 
**************** 



.♦INITIAL*. 
> ENTRY * 
(REG 0=0) 



**G1******* 

* SVC 19. * 

OPEN 

INPUT 

DATA 

* SET * 
*********** 



COMP 

*****B2 ********** 

* PLACE * 

* INFORMATION * 
>* IN REGISTERS * 

* FOR REFERENCE * 

* * 
***************** 



.* CARD *. 
* IMAGE 

PROCESSING 
*. COMPLETE . 



MORE 

INPUT 

BYTES 



*****C3********** 

* * 

* CHECK * 

* BYTES TO * 

* BE PROCESSED * 

* * 
***************** 



FINI 

*****B4********** 

* SET RETURN * 

* CODE EQUAL * 
>* 8. (END *- 

* OF INPUT) * 



***************** 



*****Q2 ********** 

* PROC 51 HI * 
*-*-*-*-*-*-*-*-* 

* GET A * 

* RECORD * 

* * 
***************** 



**** 

* * 

* D1 * 

* * 
**** 



*****£ 3********** 

* PROC 51 H4 * 
*-*-*-*-*-*-*-*-* 

* GET A *- 

* RECORD * 

* * 
***************** 



DCB 

FIELDS 

VALID 



INVALD 

*****H2********** 

* SET RETURN * 

* CODE EQUAL * 

* 2». (DCB * 
♦FIELDS INVALID)* 

* * 
***************** 



NOTOK 

*****J1********** 

* SET RETURN * 

* CODE EQUAL * 

* 20. (NOT * 

* OPENED) * 

* * 
***************** 

**** 



**K1******* 

► SVC 20. * 

CLOSE 

INPUT 

DATA 

* SET * 

*********** 



*****G3********** 

* PROC 51 HI ♦ 
*-*-*-*-*-*-*-*-* 

>* GET A * 

* RECORD * 

* * 
***************** 



*****H3 ********** 

* * 

* SET RETURN * 

* CODE ♦ 

* EQUAL 0. ♦ 

* * 
***************** 



****J3* ******** 

♦ RETURN TO * 

* MODULE IEBISL ♦ 



****K2 ********* 

* RETURN TO * 
->♦ MODULE IEBISL * 

♦ (CHART 53) * 
*************** 



**** 

* * 

* D4 * 

* * 
**** 



RECORD 

TOO 

LONG 



EXCEED 

*****D5 ********** 

♦ SET RETURN * 

* CODE EQUAL * 



***************** 



**** 
* 
* E4 *-> 



. ♦ENTIRE ♦ . 
RECORD 
ON CARD 

. IMAGE . 



*****pt| ********** 

* * 

* MOVE * 

* RECORD * 

* FOR OUTPUT ♦ 

* * 
***************** 



****QH ********* 

* RETURN TO * 

* MODULE IEBISL * 

* (CHART 53) * 
*************** 



*** ^5 ********** 

* 

MOVE BYTES. * 

INCREMENT * 

POINTER. * 

*************** 



***************** 



**** 
* EH ♦ 



**HH******* 

* * 

GET 

INPUT 

RECORD 



♦.SEQUENCE .♦ 



POINT OF 

DEPARTURE 

************* 



PROC - 
SUBROUTINE 
OF CSECT 
IEBISSI 



NOTSEQ 

*****J5 ********** 

* SET RETURN * 

* CODE EQUAL * 
>♦ lb. (OUT * 

* OF SEQUENCE) ♦ 

* * 
***************** 
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Chart 55. IEBISAK - Print logical Records (IEBISPL) 



****A1********* ENTRY IS 

* * VIA XCTL 

* ENTRY * FROM MODULE 

* * IEBISAM 
*************** (CHART 19) 



ESTABLISH 

BASE 
REGISTER 



***************** 



*****C1********** 

* LOAD DCB * 

* POINTERS * 

* MOVE DDNAMES ♦ - 

* TO DCBS. * 

* * 
***************** 



**C2******* 

* SVC 19. * 

OPEN 

INPUT AND 

OUTPUT 

► DCBS * 

*********** 



* DCB * . 

PARAMETERS . *<- 
* . VALID . * 



**** 

* * 

* G2 * 

* * 
**** 



*****F1 ********** 

* CHECK FORMAT * 

* AND LENGTH * 
>* OF RECORDS * 

* SET PAGING * 

* AND HEADINGS * 
***************** 



USER * . 
EXIT 
.SPECIFIED.* 



SETSW 

*****£2 ********** 

* SET MESSAGE * 

* NUMBER AND * 
♦COMPLETION CODE* 



***************** 
**** 



*****F2 ********** 



***************** 
**** 



**H1 ******* 

* SVC 8. ♦ 

* LOAD. 
BRING IN 

* USER 

* ROUTINE * 
*********** 



DOGET 

**J1******* 

* svc io. * 

* GETMAIN. * 
♦BUFFER AREA FOR* 

* INPUT DATA * 
♦SET RECORD * 

*********** 



*♦** 

* * 

* B3 * 

* * 
**** 



**G2******* 

* SVC 20. * 

CLOSE 

INPUT AND 

OUTPUT 

* DCBS * 
*********** 



**H2******* 

* SVC 10. * 

* FREEMAIN. * 
* AREA OBTAINED * 

* FOR RECORD * 

* LENGTH * 
*********** 



*****J2** ******** 

* * 

* PREPARE * 

* FOR XCTL EXIT * 

* TO TERMINATE * 

* * 
***************** 



****K2********* 

* XCTL TO * 

* MODULE IEDISF * 



**B3******* 

* PUT * 
(LOCATE) . 

GET OUTPUT 
BUFFER 

* ADDRESS * 
*********** 



GETNEXT 

**C3******* 
*GET (MOVE).* 

* PLACE NEXT ♦ 
* RECORD IN 

* WORK AREA * 
* * 

*********** 



*****Q3 ********** 

* CHECK OUT * 

* RECORD * 
♦CHARACTERISTICS* 



***************** 



SVC 68. 

ERROR 

ANALYSIS 

* * 

*********** 



**** 
* * 

t F2 * 



**** 

SYNADIN 



**£!)******* 

* * 

SVC 68. 

ERROR 

ANALYSIS 

t * 

*********** 



TAKE 
USER 
EXIT 



GO TO 

USER 

ROUTINE 

* * 

*********** 



*****P3********** 

* CHECK RETURN * 

* CODES ANDTAKE ♦ 

* APPROPRIATE ♦ 

* ACTION * 

* * 
***************** 



. * DATA 
. CONVERSION 
♦.REQUIRED . 



MAKE 

INPUT 

DATA TO BE 



1— .". UAXA 1U DC 
♦ . MOVED . ♦ 
♦* ♦ YES 

* * I 

► Ft * 

t * V 



.* DATA SET 
TO BE 
*. CLOSED 



*****G5+* ******** 



***************** 



CODES AND MESSAGE NUMBERS 



***************** 



r 



**J3******* 

* PUT * 

* ILOCATE) . 
WRITE RECORD 

* FROM 

* BUFFER * 
*********** 



RETURN 
CODE 


MEANING 


COKPLETIOni 

CODE 

(HEXADECIMAL) 


MESSAGE 
DUMBER 



t 
8 
12 


PRNT CONTINUE 
PRIST, CLOSE 
NO PRINT; CONTINUE 
NO PRINT) CLOSE 


4 
4 


b 
5 




DCB EilROR 
DD STATEMENT 

MISSING OR 

UNSUCCESSFUL OPEN 
SYNAD ERROR 
INVALID RETURN 

CODE ISSUED. 


8 ' 
10 

8 



1 

7 

2 
6 
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Chart 56. IEBISAtf - Terminate IEBISAM Program (IEBISF) 



ENTRY IS VIA 
XCTL FROM ANY 
IEBISAM PROGRAM 
MODULE 



* 4 

* ENTRY * 

* 4 
*************** 



* PREPARE * 
♦TO OPEN OUTPUT * 

* DCB * 

* * 
***************** 



**C2*****+* 

* SVC 19. * 

* OPEN * 
* SYSPRINT DATA * 

* SET * 

* * 
*********** 



* SET * 
♦COMPLETION CODE+<- 

* =16 ♦ 

* ♦ 
***************** 

**** 

* * 

* El ♦-> 

* * 

* ♦♦♦ 
CLOSEOUT V 

•♦El******* 

* SVC 20. * 

* CLOSE * 

* SYSPRINT DATA * 

* SET * 

* ♦ 
*********** 



*****■£!********** 



♦RESET POINTERS * 



***************** 



*****D3********** 

♦ * 

♦ SET ♦ 
->♦ UP FOR HEADER ♦- 

♦ LINE ♦ 

♦ ♦ 
***************** 



**G1******* 

* SVC 10. * 

FREEMAIN 

PROGRAM 

WORK 

► AREA * 

*********** 



*****Q2 ********** 

♦ PREPARE FOR ♦ 

♦ RETURN (ES- * 
->* TABLISH COM- * 

* PLETION CODE * 

* FOR CALLER) * 
***************** 



**DH******* 

* * 

* PUT (MOVE). 
->♦ WRITE HEADER 

♦ LINE 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦ 



•♦♦♦♦EU ********** 



***************** 



♦ ♦Fl»******* 

► PUT * 
(MOVE) . 

WRITE 
MESSAGE 

► ♦ 
*********** 



♦ ♦♦♦ 

► 4 

► El * 

► * 

♦ ♦♦♦ 



ERROR 

'"K"' 



* SYNAD ♦ 

♦ ROUTINE FOR ♦ 

* SYSPRINT * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

| COMPLETION 
1 CODE = 8 



• ••♦ 

t * 
* El ♦ 
► * 

• *•* 



♦♦♦♦H2 ********* 

* RETURN TO * 
» CALLER OF * 

* IEBISAM * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Updating Symbolic Libraries 
(IEBUPDAT) 

The IEBUPDAT program modifies a syirbclic 
library. The program can: 

• Add, copy, and replace members. 

• Add, delete, replace, and renumber the 
records within an existing member. 

• Assign sequence numbers to the records 
of a new member. 

The input to the IEEUPDAT program con- 
sists of two data sets: the old master 
data set (SYSUT1) and the current transac- 
tion data set (SYSIN) . The old master is a 
partitioned data set that contains all of 
the library members; the current transac- 
tion is a sequential data set that contains 
all of the transactions that are to be app- 
lied to the library members. The logical 
record length for both data sets is 80 
bytes, blocked or unblocked. 

The output of the IEEUPDAT program con- 
sists of two data sets: the new master 
(SYSUT2) and the log (SYSPRINT). The new 
master is a partitioned data set that con- 
tains the updated version of the symbolic 
library; the log is a sequential data set 
that contains the latest changes to the old 
master or, optionally the currently updated 
version of the old master. The logical 
record length on the new master is 80 
bytes, blocked or unblocked; on the log it 
is 120 bytes, unblocked. The blocking fac- 
tors of the old and new masters may be 
different. 

The program obtains main storage for 
buffers by means of the getmain routine, 
which is called once for each buffer; the 
amount of storage requested is the same as 
the block size specified by the utility 
keyword parameter BLKSIZE. If the amount 
of storage requested is not available, the 
program terminates. 

The current transaction is the control- 
ling data set. Only those members of the 
old master for which there are current 
transaction entries will be processed. Old 
master members without current transaction 
entries will not appear in the new master. 



PROGRAM STRUCTURE 

The IEEUPDAT program (Figure 50) can be 
logically divided into three parts : 
initialization, member processor, and 
within-member processor. 

Initialization 

Initialization sets switches, assigns work 
areas, and opens the input and output data 



sets. It consists of four functions: 
AHEAD, ANALPRAM, OPEN1 , and OPENINPT. 

AHEAD 

initializes switches, work areas, and 
BCBs so that they can be reused. 

ANALPARM 

analyzes input specifications and user 
header and trailer label exit routine 
name specifications. Errors cause 
termination of the program with a 
message. 

OPEN1 

opens output data sets. 

OPENINPT 

opens one or two input data sets 
according to optional parameter input 
specifications. 



Member Processor 

The member processor updates whole members 
at a time. It reads the current transac- 
tion data set and does preliminary proces- 
sing of all headers: ADD, REPL, REPRO, and 
CHNGE. Further processing of the CHNGE 
header is done by the Within Member Proces- 
sor. The ADD, REPI, and REPRO headers and 
their associated current transaction reco- 
rds are processed by the Member Processor. 

A new-master is created by the Member- 
Level Processor for ADDs, REPLs, and REPRO 
headers. A REPRO header will cause the 
new-master to be written from the old- 
master instead of from the current transac- 
tion data set as is done for ADD and REPL 
headers. Processing of the current trans- 
action header includes sequence checking of 
member names, determination of proper 
directory entry (or lack of) , stowing of 
ALIASes, sequencing of ADDs and REPLs 
(through presence cf NUMBR) , and detection 
of invalid transactions (i.e., transactions 
that logically are out of sequence or are 
incorrectly prepared). The member proces- 
sor consists of eight routines: READCT, 
SOURCECK, MAINBODY, SOURCERT, OMREADRT, 
LOGROUTE, NUMBRRTE, and STOWNAME. 

READCT 

reads the current transaction data set 
and deblocks if necessary. It then 
checks for two illegal headers in a 
row (ADD, REPL, or CHNGE) . 

SOURCECK 

determines the type of transaction. 

MAINBODY 

processes headers. It checks the 
member name of the current transaction 
header stream for proper sequence and 
sets up the STOWAREA area with the 
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directory image. If the header is an 
ADD, MAINBODY ensures that there is no 
directory entry on the old roaster; 
conversely, if the header is a REPL, 
REPRO, or CHNGE, a directory entry 
must already be on the old master. 



SOURCERT 

processes all source line transactions 
in a member following an ADD or REPL 
header. 



OMREADRT 

processes the source line transactions 
in a member following a REPRO header. 



Within Member Processor 

The Within Member Processor updates the 
records within a member. It inserts, 
deletes, reproduces, replaces and/or rese- 
quences source code images. Control is 
given to the Within Member Processor when 
the Member Level Processor detects a CHNGE 
transaction and verifies the existence of 
the named member on the old master data 
set. The Within Member Processor retains 
control, processing a member of the old 
master as specified by the record of the 
current transaction data set until another 
header record or the ENDUP record is read. 
Control is then returned to the Member 
Level Processor. 



LOGROUTE 

writes headers, ALIAS and NUMBR trans- 
actions, and error messages, on 
SYSPRINT. 



The within member processor consists of 
four routines: RRFINDOM, RRSOURCE, RRDE- 
LET, and RRNUMBER. 



NUMBRRTE 

processes NUMBR transaction following 
either a REPL or ADD header. 

STOW NAME 

stores a member name in the output 
directory. 



RRFINDCM 

reads the first record of the old 
master member being changed; then 
reads and checks the current transac- 
tion for the type of transaction. 
Control is passed to the appropriate 
transaction routine. 



r — '■ 1 

I I 

| Initialization [- 

I I 

L ^ J 



Member 
Processor 



Within 
Member 
Processor 



Initialize Switches and DCBs (AHEAD) 



j Analyze option parameters (ANALPRAM) 

|. 

| Open data sets (0PEN1) 

L 

Determine Type of Transaction (SOURCECK) 



j Process headers (MAINBODY) 

j. 

| Process source lines-ADD,REPL (SOURCERT) 
j. 

| Process source lines-REPRO (OMREADRT) 
j. 

jwrite log (ZZPR) 

j. 

| Sequence members ( NUMBRRTE ) 

h 

| Stow directory names (STOWNAME) 

L . - 

Read old master (FINDOM) 



j Change records per transactions (CKCMSW) 
,. _ 

| Write in log (ZZPR) 

j. 

| Write in member (NMWRITE) 

L 



Figure 50. Functional Structure of the IEBUPDAT Program 
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RRSOURCE 

compares the sequence numbers of the 
old master record and the source 
transaction record to determine wheth- 
er the source record is an insertion 
or a replacement. 

RRDELET 

deletes old master records whose 
sequence numbers are within the range 
of numbers on the DELET transaction. 

RRNUMBR 

provides the sequence numbers for old 
master records and inserted source 
transaction records that follow a 
NUMER transaction. 



PROGRAM FLOW 

Chart 57 shows the flow of control through 
the IEBUPBAT program. After the program is 
entered, it sets switches, assigns work 
areas, and checks DCEs for reusability. 
The output data sets SYSPRINT (log) and 
SYSUT2 (new master) are opened. The log 
header is written, using the optionally 
specified initial page number, and messages 
indicating error conditions found during 
ddname or initial page number interrogation 
are issued. Option parameters supplied by 
the user via the EXEC statement are 
analyzed. 

Next, the current transaction data set 
(SYSIN) and the old master data set (SYS- 
UT1) are opened. (the DCB exit is taken to 
determine the block size so that a buffer 
area can be dynamically obtained for the 
SYSIN data set. A user header label exit 
may be taken at this point to process user 
header labels. 

The READCT routine is the starting point 
for the Member Processor part of the pro- 
gram, and is executed each time processing 
is completed on a current transaction and a 
new current transaction is needed. READCT 
passes control to the REABCTA subroutine 
which reads and deblocks a record from 
SYSIN. The record can be one of the fol- 
lowing: a header record, a source record, 
a NUMBR record, or an ALIAS record. A 
header record is processed by the HEADERCK 
routine; a source record is processed by 
the SOURCERT routine; a NUMBR record is 
processed by the NUMBRRTE routine; and an 
ALIAS record is processed by the STOWNAME 
routine. 

The HEADERCK routine determines whether 
the header is valid and then sets appropri- 
ate switches depending on the type of head- 
er. If the header is not valid, an error 
message is logged and control is passed to 
the READCT routine. Valid headers are pro- 
cessed by MAINBODY. 



The SOURCERT routine processes all 
source line transactions that are in a 
member whose header is either an ADD or 
REPL. A check is made to see if the source 
is in its proper place by checking the 
ALREPOSW switch which is turned on when 
either an ALIAS or REPRO is encountered. 
If the ALREPOSW switch is on, the source is 
out of sequence and a message is logged via 
the LCGRCUTE. Control is then passed to 
the READCT routine. If the ALREPOSW is 
off, the CTINAREA area which contains the 
source image, is moved to the OMINAREA 
area. Then, if the NSW switch is off (no 
NUMBR preceding the source) , the current 
transaction is written on the new master. 
The full list switch, FLLISTSW is checked 
and if it is on, the record is logged and 
control is returned to READCT. 



The NUMBRRTE routine processes the NUMBR 
transaction which may have followed either 
a REPL or an ADD header. A check is made 
of the ADDREPSW switch, which will be on if 
the previous transaction was an ADD or 
REPL. If ADDREPSW is off, an error message 
is logged and control is passed to the 
READCT routine. If ADDREPSW is on, the 
NUMBR transaction is checked for its proper 
sequence within the stream of current 
transaction records referencing a member. 
Sequence numbers are converted and placed 
in the proper work areas. The NUMBR trans- 
action is logged after which control is 
passed to the READCT routine. 

The STOWNAME routine causes the previous 
member name or alias to be stored in the 
directory with the system status indicator 
(SSI) bytes (if any) via the STOWREPL sub- 
routine. If the current transaction in 
CTINAREA is an alias, the alias, TTR, and 
user information are moved to STOWAREA. 
The alias is logged via the LOGROUTE rou- 
tine and control is passed to the READCT 
routine which reads the next transaction. 
If the current transaction is not an alias, 
control is passed to the HEADERCK routine. 

By reaching MAINBODY, it has been deter- 
mined that the header is in proper sequence 
with a member. The member name, however, 
is compared with the previous member name 
to determine if the member is in sequence. 
If the member is out of sequence, an error 
message is logged and control is passed to 
the READCT routine. If the member is in 
sequence, the directories from the old 
master and the new master are compared. 
There should be entries in both directories 
for REPL, REPRO, or CHNGE headers but no 
entry in the old master for an ADD header. 
In the event of an error, an error message 
is logged, the entire member is rejected, 
and control returns to the READCT routine. 
If there are no errors, the header is 
logged. 
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If the header is a REPRO, the old master 
is read into OMINAREA; the record is logged 
if the full list switch (FLLISTSW) is on; 
and the record is then written on the new 
master. If the header is an ADD or REPL, 
control is passed to the READCT routine. 
If the header is a CHNGE, control is passed 
to the within member processor RRFINDOM. 

Beginning at RRFINDOM, the within member 
processor handles the transactions follow- 
ing a CHNGE header; i.e., source, DELET, 
and NUMEER. The member being changed is 
located on the old master data set and the 
first record is read. The current transac- 
tion file is also read and checked for the 
type of transaction. 

If the transaction is a source, the 
sequence number of the new master record 
and of the current transaction record are 
compared. When the old master is low, it 
is rewritten onto the new master and the 
next record on the old master is read and 
compared. When the old master is equal to 
the source transaction, the current trans- 
action is written on the new master. 

If the transaction is a DELET, the 
sequence number of the old master record is 
compared to the 'start' sequence number of 
the DELET transaction. When the old master 
is lew, it is written onto the new master 
and the next record on the old master is 
read and compared. When the old master is 
equal to or greater than the 'start' 
sequence number, the old master records are 
read and deleted until a record is read 
whose sequence number is higher than the 
'end' sequence number in the DELET 
transaction. 



If the transaction is a NUMBR, the old 
master is read and resequenced according to 
the range of sequence numbers in the NUMBR 
transaction. The current transaction is 
also read and any DELET or source transac- 
tion is processed as described above. 
Source transaction may also be numbered 
sequentially. 



As the current transactions are read and 
processed, each current transaction detail 
record is logged as is the record or reco- 
rds it referenced. If a complete log is 
requested, all records placed in the new 
master data set are logged. Any errors 
detected during processing are also logged. 



Utilizing the EODAD exits, the end of 
member on the old master and the end of 
data on the current transaction data set 
are determined. Processing continues until 
the new master member is completed. All 
switches are reset and work areas are 
cleared before returning to the member 
level processor at STOWNAME. 



After the last member is processed, as 
indicated by a /ENDUP or EOD exit on SYSIN, 
the old master, the new master, and SYSIN 
data sets are closed. A user trailer label 
exit, if one was specified by the user via 
the EXEC card may be taken at this point to 
process user trailer labels. When this is 
done, a final message is logged indicating 
the highest concode obtained in the pro- 
gram. The SYSPRINT data set is closed and 
control is returned to the invoker. 
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Chart 57. IEBUPDAT - Updating Symbolic Libraries 



****A1+* ******* 

f 4 

► ENTRY * 
*************** 



IEBUDAT V 

*****B1 ********** 

* SET SWITCHES. * 

* ASSIGN WORK * 

* AREAS, OPEN * 

* SYSPRINT AND * 

* SYSUT2 * 
***************** 



* ANALYZER * 

* OPTION * 

* PARAMETERS * 

* * 
***************** 



**** 

* * 
->* G5 * 

* * 

**** **** 

* * 

* E2 * 

* * 
**** 



***E1* ********* 

OPEN * 

CURRENT * 

TRANSACTION * 

DATA SET * 

(SYSINK) 



********* 



***** 



READCT . * . 

Fl *. 
. * *. 


SOURCECK . 

F2 
.* 


" * 


NO .* *. 

*. USER EXIT .* 

*. .* 


.* IS CT 
* . A SOURCE 
*. 


*. . * 


*. . * 


*. .* 


*. .* 


* YES 


* YES 



*-*-*-*-*-*-*-*-* 
* USER * 

' HEADER LABEL * 
■ * 

k **************** 



*****J1********** 

* * 

* OPEN THE OLD * 
♦MASTER DATA SET* 

* (SYSUT1) * 

* * 
***************** 



READCT 

*****E2** ******** 

* READ DEBLOCK * 

* AND CHECK * 
>* CURRENT *< 

* TRANSACTION * 

* DATA SET * 
***************** 



*****A3********** 

* * 

* STOW PREVIOUS * 
♦MEMBER NAME OR * 

* ALIAS * 

* * 
***************** 



**** 

* * MC 

* E2 *<- 



*****£ 3********** 

* MOVE * 

* ALIAS TO * 

* STOWAREA * 

* * 
***************** 



-*-*-*-*-* 

* *< 

* LOG ROUTINE * 

* * 
***************** 



HEADERCK 



* APPLY * 


NO .* IS 


CT *. 


* SEQUENCING IF * 


r — *. A NUMBER- .* 


* REQUIRED * 


1 *• •* 




1 *- .* 


***************** 


V *. .* 






**** * YES 














* A3 * 








* * 








**** 




WRITENM '' 


NUMBRRTE V 


*****h2********** 


*****H3********** 


* * 


* * 


* WRITE * 


* CONVERT * 


* NEW MASTER * 


* SEQUENCE * 

* NUMBERS AND * 


* * 


* 


* 


* SA\ 


/E * 



RRFINDOM V 

*+**#B5 ********** 



♦READ OLD MASTER* 

* * 

***************** 



*-*-*-*-*-*-*-*-* 

* READ CURRENT * 

* TRANSACTION * 

* DATA SET * 
****************** 



***** 05 ********** 



***************** 



♦CONSISTENT. 



.♦WITHIN *. 
♦ MEMBER 

PROCESSING 
*. COMPLETE . 



t *. **** 

REPRO *. NO * * 
HEADER .* >* A5 * 



**♦* 

* * 

* Gb * 

* * 
**** 



♦READ OLD MASTERS 

* AND WRITE NEW ♦ 

* MASTER ♦ 

* * 
***************** 



EOJ ROUTINE 



***************** 



*************** 



*. LIST SW ON 



***************** 



*LOG THE RECORD * 
* * 

***************** 



FULL LIST 



* E2 * 

* * 
**** 



H5 *. 
. * * . 

USER EXIT 

"*. . ♦ * 

♦ . . * 

* YES 



* E2 ♦ 

* * 
***+ 



*****j5********** 

* * 
*-*-*-*-*-*-*-*-* 

* USER ♦ 

* TRAILER LABEL ♦ 

* ROUTINE * 
***************** 



***^5********* 

RETURN * 
* 
************** 
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Creating a Modified Input Stream 
(IEBEDIT) 

The IEBEDIT program creates a sequential 
data set containing Job Control Language 
(JCL) statements and system input data by 
extracting sets of statements representing 
jobs or job steps from a master file. The 
input to the program is in two data sets : 

• SYSIN, which contains control state- 
ments that allow the user to control 
the editing of the master file of JCL 
statements and data. 

• SYSUTl, which contains the master file 
of JCL statements and data. 

The output of the program is in two data 
sets: 

• SYSUT2, which is the primary output 
data set. It is composed of 80- 
character logical records containing 
the JCL statements and data records 
extracted from the master file. 

• SYSPRINT, which contains a listing of 
the control statements, and (optional- 
ly) a listing of the contents of the 
SYSUT2 data set. 

The IEBEDIT program is executed as a job 
step; the EXEC statement used to call it 
specifies the program IEBEDIT. 



PROGRAM STRUCTURE 

The IEBEDIT program is contained in one 
load module whose entry point name is IEBE- 
DIT. The module contains three major pro- 
gram sections as well as a number of sub- 
routines. The three major sections of the 
program are: 

• The Initializing routine, which obtains 
main storage for tables and work areas, 
initializes them, and opens the pro- 
gram 1 s data sets. 

• The Main routine, which passes control 
among the subroutines to analyze con- 
trol statements, to inspect master file 
records , to determine which records 
should be written out, and to write 
output records. 

• The Post Processing routine, which 
stores condition codes, frees main 
storage, closes the program's data 
sets, and returns control to the 
supervisor. 

The Initializing Routine 

The entry point for the IEBEDIT program is 
the Initializing routine. When it is 
entered, the routine obtains main storage 



for an active save area and a work area, 
and opens the SYSPRINT, SYSUTl, SYSUT2, and 
SYSIN data sets. 

The Initializing routine checks the 
block size specification of each data set 
except SYSPRINT to insure that it is a mul- 
tiple of 80 characters. If the SYSUT2 blo- 
cksize specification is not a multiple of 
80 characters, it is changed to match the 
SYSUTl specification, and a message is 
written to SYSPRINT. If the SYSUTl data 
set is not a multiple of 80 characters, a 
message is written to the SYSPRINT data set 
and the step is terminated. 

If any data set cannot be opened, the 
Initializing routine passes control (via a 
branch instruction) to the Post Processing 
routine. Otherwise, it uses the GET macro 
instruction (locate mode) to obtain the 
first SYSUTl record, and branches to the 
Main routine. 



The Main Routine 

The Main routine (Charts 58 and 59) passes 
control among subroutines that analyze con- 
trol statements from the SYSIN data set and 
master file records from the SYSUTl data 
set. Based on the specifications in the 
control statements, the Main routine deter- 
mines which records are to be extracted 
from the master file, and uses the Update 
subroutine to write those records to the 
SYSUT2 and (optionally) to the SYSPRINT 
data sets. 



When the Main routine is entered (via a 
branch from the Initializing routine) , the 
first record from the SYSUTl data set is in 
main storage. The Main routine uses the 
Scan subroutine to obtain a record from the 
SYSIN data set, and to analyze the record. 



If there are no control statements in 
the SYSIN data set, the Scan subroutine 
encounters an end-of-data condition, indi- 
cating that a total copy of the master file 
is to be performed. Control is passed to 
the Update subroutine to write the record 
to the output data sets, then back to the 
Main routine to get the next master file 
record. When the master file has been com- 
pletely copied, the Main routine passes 
control to the Post Processing routine. 



If the Scan subroutine obtains a control 
statement, a selective copy is performed, 
based on the specifications in the control 
statement. The Main routine passes control 
to the Start job subroutine, which gets 
master file records until it finds the 
proper JOB statement: 
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If the parameter START=jobname was used 
in the control statement, the Startjob 
subroutine searches the master file for 
a JOE statement with the specified 
name. 

If no job name was specified, the Star- 
tjob subroutine searches the master 
file for the next JOE statement. 



If TYPE=INCLUDE or EXCLUDE, the Main 
routine must determine whether the current 
record represents a step within an inclu- 
sive set, and if not, whether it represents 
a step whose name was specified singly. 
The routine does this with the aid of two 
tables (the inclusive stepnames table and 
the single stepnames table) and the 
inclusive/exclusive switches. 



When the proper JOB statement has been 
found, the Startjob subroutine passes con- 
trol to the Update subroutine, which writes 
the statement to the SYSUT2 and, optional- 
ly, to the SYSPRINT data set. When control 
is returned to it, the Startjob subroutine 
reads the next record and uses the Cardtype 
subroutine to determine whether the record 
is a JOBLIB DD statement. 

If the record is a JOBLIB DD statement, 
the Update subroutine writes it to the out- 
put data sets. The Startjob subroutine 
then obtains another master file record 
from the SYSUT1 data set and returns con- 
trol to the Main routine. 

On the return from the Cardtype subrou- 
tine, the Main routine analyzes the 
switches set by the Cardtype subroutine and 
performs the processing indicated by the 
record type and control statement 
specifications . 

If the record is an EXEC statement, its 
disposition depends on the use of the TYPE 
and STEPNAME parameters in the control 
statement. 

If TYPE=PCSITICN, and no stepname was 
specified, the Main routine passes control 
to the Update subroutine, and the record is 
written to the output data sets. If a ste- 
pname was specified, and the corresponding 
EXEC statement is found, the Main routine 
passes control to the Update subroutine, 
and the record is written to the output 
data sets. 



Each entry in the inclusive stepnames 
table contains the names of the first and 
last steps in a set as specified in the 
STEPNAME parameter; each entry in the 
single stepnames table contains the name of 
a step specified singly. The include/ 
exclude switches indicate whether inclusive 
or exclusive processing is taking place. 

The decisions made in the program, and 
the resultant processing, are shown in 
Figure 51. The upper section of the table 
shows the conditions that may exist; the 
lower section shows the action that is 
taken as a result of each set of condi- 
tions. The action "Write" means that the 
Main routine uses the Update routine to 
write the record containing the EXEC state- 
ment, and the remaining records represent- 
ing that step, to the output data sets. 
The action, "No Write" means that the Main 
routine searches for the end of the current 
step, but does not write the records to the 
output data sets. 

The end of the current step is indicated 
by the presence of a JOB statement, another 
EXEC statement, or an end-of-data condi- 
tion. If a DD DATA statement is encoun- 
tered, a switch is set; subsequent records, 
although they may appear to be JCL state- 
ments, are treated as data in the input 
stream* When a delimiter statement is 
encountered, the DD DATA switch is set off; 
and if the other records in the step were 
written out, so is the delimiter statement. 

When a JOB statement is encountered, or 
when an end-of-data condition exists in the 



Include/Exclude Switch is On 

Include/Exclude Switch is Off | | | | |XjX|X|X 

Match 1st Name in Inclusive Stepnames Table | I j I I I I X I X 

Match 2nd Name in Inclusive Stepnames Table 

No Match in Inclusive Stepnames Table | j | X J X | X | X | | |X|X 

Match in Single Stepnames Table j j j | | | | | | X | X 

No Match in Single Stepnames Table | | X | X | X | X | X | X 

TYPE=INCLUDE I X | I X | I X | | X 

TYFE=EXCLUDE 



Write 

No Write 

Set Include/Exclude Switch On 

Set Include/Exclude Switch Off 



Figure 51. EXEC Statement Include/Exclude Processing 
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SYSUT1 data set, the Main routine scans the 
list of step names constructed from the 
control statement. If any of the names in 
the list were not found, a message contain- 
ing the step name is written to the SYS- 
PRINT data set for each missing step. If a 
JOB statement was encountered, the Main 
routine then passes control to the Scan 
subroutine to analyze the next control sta- 
tement; if there was an end-of-data condi- 
tion, the Main routine passes control to 
the Post Processing routine. 

The Post Processing Routine 

The Post Processing routine is entered when 
no more processing is to be performed; at 
end-of-data in the SYSUT1 data set, when 
all SYSIN statements have been processed, 
or when an unrecoverable I/O error occurs. 
When it is entered, it determines whether 
an end-of-data condition exists for the 
SYSIN data set; if not, it uses the Scan 
subroutine to process the remaining control 
statements. 

When all records in the SYSIN data set 
have been processed, the Post Processing 
routine uses the Update subroutine to write 
a terminal message (including the condition 
code) to the SYSPRINT data set. It then 
closes the program's data sets, frees the 
main storage that had been obtained, and 
returns control to the supervisor. 

IEBEDIT Subroutines 

The IEBEDIT program contains four major 
subroutines: Scan, Start job, Cardtype, and 
Update. Linkage to each subroutine is via 
a BAL instruction; return is via a BR 
instruction. 

The Scan Subroutine 

The Scan subroutine is entered to obtain 
and analyze a complete control statement: 
the initial record and any continuation 
records. When the Main routine is first 
entered,, the Scan subroutine determines 
whether a total copy is required; if not, 
and when a job has been processed, it 
determines the processing required for the 
next job; and when an end-of-data condition 
occurs on the SYSUT1 data set, it is 
entered to scan the remaining SYSIN 
records. 

When the Scan subroutine is entered, it 
attempts to obtain a record from the SYSIN 
data set. If it obtains a record, it scans 
the record, converting the control state- 
ment parameters to switch settings that can 
be tested by the Main routine, and when it 
has processed the entire statement, it 
returns control to its caller. If it 
encounters an end-of-data condition, and no 
statements have previously been processed. 



the routine sets a switch indicating that a 
total copy is to be performed, and returns 
control to its caller. If it encounters an 
end-of-data condition, and statements have 
previously been processed, it passes con- 
trol to the Post Processing routine. 



When the routine is entered, it uses a 
search routine to set pointers to the 
fields in the statement, then scans the 
field. The Scan routine has five phases: 
Initialization, Name/Operator Handling, 
Operand Handling, Operand Value Handling, 
and Scan Post Processing. 

The Initialization phase clears switches 
and resets pointers; the search routine 
finds the Name and Operator fields, and 
control passes to the Name/Operator Handl- 
ing phase. 

In the Name/Operator Handling phase of 
the Scan subroutine, the name field of the 
statement is checked for validity (it must 
be 8 characters long or less). Then, the 
contents of the Operator field is used as a 
search argument in a search of the Opera- 
tion Code Table (see Figure 52) . When a 
match is found, the Turn-On Box of the 
table is used to set the appropriate 
switches in the IEBEDIT work area, and 
pointers to the operator and to the appro- 
priate Parameter Table (see Figure 53) are 
placed in the work area. 








Operation Code 


8 


8 


Turn-On Box 


2 


Required Box 


2 


12 


Information Box 




Parameter Table Address 


3 


16 




Reserved 


4 


20 


1 

Reserved 




Diagnostic Routine Address 


3 



Figure 52. Scan Routine Operation Code 
Table Entry 

Operation Code : This field contains the 
Operation Code, left justified, and padded 
with blanks. 

Turn-On Box : This field contains the dis- 
placement (byte 1) in the IEBEDIT Work Area 
and the bit pattern (byte 2) to be set at 
that displacement. 

Required Box : This field contains a dis- 
placement (byte 1) in the IEBEDIT Work 
Area, and a bit pattern (byte 2) to be 
found at that displacement. This bit pat- 
tern is required for processing of this 
statement. 
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Information Box : If bit of this field is 
set to 1, this entry is the last entry in 
the table. 

Parameter Table Address : This field con- 
tains the address of the Parameter Table 
that corresponds to this operation. «■ 

Diagnostic Routine Address : This field 
contains the address of a routine used to 
perform additional processing on the 
statement . 



12 



Operand Value 



Turn-On Box 



Information Box 



1 



Assume Box 



Address of Fixed Operand Table or Action Routine 



Figure 53. Scan Routine Parameter Table 
Entry 

Operand Value : This field contains the 
value of the operand, left justified, and 
padded with blanks. 

Turn- On Box : Byte 1 of this field contains 
a displacement in the IEBEDIT Work Area; 
byte 2 contains a bit pattern to be set at 
that displacement as a result of encounter- 
ing this parameter. 

Assume Box : Byte 1 of this field contains 
a displacement in the IEBEDIT Work Area; 
byte 2 contains a bit pattern to be set at 
that displacement if this parameter is 
omitted. 

Address of Fixed Operand Table or Action 
Routine : If the operand is a fixed 
operand, this field contains the address of 
the appropriate Fixed Operand Table entry, 
if the operand is a variable operand, this 
field contains the address of the routine 
that is to process the operand. 

Information Box : The bits in this field 
have the indicated meanings when set to 1: 

Bit Meaning 

Last entry in table 

1 Fixed operand 

2 Variable operand 

3 Reserved 

4 Allow subparameters 

5 Keyword-only operand 
6-7 Reserved 

Each operand in turn is used as a search 
argument, in the Operand Handling phase, to 
scan the Parameter Table. When a match is 
found, the Turn-On Box of the Parameter 
Table is used to set the appropriate 
switches in the IEBEDIT work area, and a 



pointer to the Parameter Table entry is 
placed in the work area. If the operand is 
a keyword-only operand, and there are addi- 
tional operand fields, the routine pro- 
cesses the next field. If there are no 
additional operands, the routine passes 
control to the Scan Post Processing phase. 

If there are parameters associated with 
the keyword, the routine passes control to 
the Operand Value Handling phase. In this 
phase, the Scan subroutine inspects the 
Parameter Table entry to determine whether 
the parameter has a fixed value, or whether 
the value may vary. If the parameter is a 
variable value parameter, the Action Rou- 
tine Address field of the Parameter Table 
entry contains the address of the routine 
that is to process the parameter, and a 
branch is executed to give that routine 
control. If the parameter is a fixed value 
parameter, the routine uses the value spe- 
cified as a search argument in a search of 
the Fixed Operand Table (see Figure 54). 
When a match is found, the Turn-On Box 
field of the table is used to set the 
appropriate switches in the work area. 





Fixed Operand Value 


8 


Turn-On Box 


2 


1 
Reserved 


1 
Information Box 



Figure 54. Scan Routine Fixed Operand 
Table Entry 

Fixed Operand Value : This field contains 
the value of the operand, left justified, 
and padded with blanks. 

Turn-On Box : Byte 1 of this field contains 
a displacement in the IEBEDIT Work Area; 
byte 2 contains the bit pattern to be set 
at that displacement when this operand is 
encountered. 

Information Box : If bit of this field is 
set on, it indicates that this entry is the 
last entry in the table. 

When the parameters associated with a 
keyword have been processed, control is 
passed to the Operand Handling phase to 
process the next operand; if there are no 
more operands to process, control is passed 
to the Scan Post Processing phase. 

When a complete statement has been pro- 
cessed, the Scan Post Processing phase 
scans the Parameter Table for the current 
operator, then sets the assumed (default) 
value switches for any parameters not supp- 
lied. The current Operation Code Table 
entry is then inspected to determine wheth- 
er any diagnostic routine has been supp- 
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lied. If so, the diagnostic routine is 
given control, and when its processing is 
complete, the Scan routine returns control 
to its caller. 



The Startjob Subroutine 



The Startjob subroutine is entered from 
the Main routine with the first record of a 
master file statement in the buffer. It 
uses the Cardtype subroutine to determine 
the statement type, and it uses the Update 
subroutine to write a JOB statement and a 
JOBLIB DD statement to the output data 
sets. 

If the first statement encountered by 
the Startjob subroutine is not a JOB state- 
ment, the routine gets records from the 
master file until it finds a JOB statement. 
The Startjob subroutine then determines 
whether the START=jobname parameter was 
used, and if not, it uses the Update sub- 
routine to write the statement (including 
its continuations) to the output data sets. 

If START= jobname was specified, the rou- 
tine compares the specified job name to the 
name in the JOB statement. If they are not 
equal, the routine searches the master file 
until the proper JOB statement is found. 
In either case, the JOE statement having 
the specified name is written to the output 
data sets, and the Startjob subroutine 
reads the next master file record. 

Once a JOB statement has been written 
out, the Startjob routine looks for a JOB- 
LIB DD statement. If it encounters one, 
the routine uses the Update subroutine to 
write the statement to the output data 
sets; if the next statement is not a JOBLIB 
DD statement, the Startjob subroutine 
returns control to its caller. 



The Cardtype Subroutine 

The Cardtype subroutine classifies 80- 
character records by type. It stores a 
code for each type except system input data 
records, and if the record is a JOB or EXEC 
statement, it stores the statement name. 
When it has analyzed a record, it returns 
control to its caller. 

The routine first examines the first two 
positions of the record. The characters // 
indicate that the record is a JCL state- 
ment, and the routine performs further 
analysis. The characters /* indicate that 
the record is a delimiter statement; the 
routine determines whether the statement is 
continued by checking for a nonblank 
character in position 72, then returns to 
its caller. 



If the statement is a JCL statement, the 
routine classifies it as one of the follow- 
ing types: 

• JOBLIB DD Statement : A statement is a 
JOBLIB DD statement if the name field 
contains JOBLIB and the operation 
field contains DD. 

• JOB Statement : The statement is a JOB 
statement if the operation field con- 
tains JOB. 

• EXEC Statement : The statement is an 
EXEC statement if the operation field 
contains EXEC. 

• DP Statement : The statement is an DD 
statement if the operation field con- 
tains DD. 

• DD DATA Statement : A statement is a DD 
DATA statement if it is a DD statement, 
and the first operand field contains 
DATA. 

• Continued Statement : A statement is a 
continued statement if it is a JCL sta- 
tement or a delimiter (/*) statement, 
and if it has a nonblank character in 
position 72. 

The Update Subroutine 

The Update subroutine is a control rou- 
tine for the output functions of the IEBE- 
DIT program. It contains the Put routine, 
which writes records to the SYSUT2 data 
set, and the Print routine, which writes 
records to the SYSPRINT data set. There 
are two entry points to the Update 
subroutine: 

• UPDATE is the entry point used to write 
records to the SYSUT1 and, optionally, 
to the SYSPRINT data set. 

• PRINT is the entry point used to write 
records to the SYSPRINT data set. 

When it is entered at the UPDATE entry 
point, the routine inspects the first three 
positions of the record in the buffer. If 
it finds the characters period, period, 
asterisk (..*), it substitutes the charac- 
ters /* ; in either case, it branches to 
the Put routine. 

The Put routine contains the PUT macro 
instruction, which causes the record to be 
written to the SYSUT2 data set. When the 
PUT macro instruction has been executed, 
the routine determines whether NOPRINT was 
specified, and if so, it returns control to 
the caller. If NOPRINT was not specified, 
the routine branches to the PRINT entry 
point of the routine. 

When it is entered at the PRINT entry 
point, the routine is given the address of 
a record or a message code. It issues the 
PUT macro instruction to write the record 
or message to the SYSPRINT data set, then 
returns control to the caller. 
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Chart 58. IEBEDIT Main Routine (Part 1 of 2) 



****A1 ********* 

* * 
► ENTRY * 

* * 
*************** 



*****A2 ********** 
♦SCAN * 

-♦-♦-♦TOTAL 



I : 
**** 



ANALYZE 
CONTROL *C0 
STMT * 
*♦♦*♦♦****♦♦♦♦♦* 
SELECTIVE 
COPY 



*-*-*-*-*- 



* FIND t WRITE * 

* PROPER JOB i * 

* JOBLIB STMTS * 
***************** 



*****C2 ********** 

* ♦ 

* GET NEXT * 

* SYSUT1 *- 

* RECORD * 

* * 
***************** 



-*-*-*-*-*-*-* 

* ANALYZE STMT * 

* AND * 

* STORE CODES * 
***************** 



*****A3********** 

♦UPDATE * 

*-*-♦-♦-*-*-*-*-* 

>* PUT RECORD * 

* TO SYSUT1 * 

* i SYSPRINT * 
*****♦♦♦♦♦♦♦♦♦♦♦♦ 



*****q3 *♦♦*♦♦♦♦** 

* * 

* GET * 

-* NEXT * 

* RECORD *EOF 

* * 
***************** 



*****A<1********** 



***************** 
**♦* 



**** 
*****gl| ********** 

* PRINT * 

* NAMES OF * 

* ANY SPECIFIED *<- 

* STEPS NOT * 

* FOUtlD ♦ 
♦♦+******♦+****** 



*-*-*-*-*-*-*-*- 
-♦ PUT RCD 

* TO SYSUT1 

♦ £ SYSPRINT 
**************** 



♦♦♦♦C5 ♦*♦****** 
t * 

* EXIT * 

* 4 
*************** 



**•* 

* * 

* A2 ♦ 

* * 
**** 



. ♦ HAS ♦ . 
A DD DATA 
STMT BEEN 

. FOUND . 



.* THIS A ♦. 

->♦ . DELIMITER . 

♦.STATEMENT.* 



*****£!)********** 

* * 

* SET DD ♦ 
>* DATA SWITCH * 

* OFF * 

* * 
***************** 



*****P3 ********** 



**** 


.* IS *. 


* * 


JOB .* THIS A *. 


* BU *<- 


*. JOB OR DD .♦ 


* * 


♦.DATA STMT.* 


**** 


♦. .♦ 




♦ . .♦ 




♦ NO 




♦♦♦♦ | ♦♦♦♦ 




* * * * 




* G2 *->->* G2 * 




* * 1 * * 




**** V **** 




.*. 




G2 *. 








. * TYPE * . 




*. = .* 




♦.POSITION .♦ 



DD DATA * 



***************** 



'*. POSITION .*" "1 

1 
* YES **** 

* * 

* J2 * 

* * 
**** 



THIS A 
JCL 

STMT 



THIS AN 
EXEC 
STMT 



TYPE 
INCLUDE 



***** 
*59 * 
* F2* 



*58 

* G3 
**** 



. * HAS * . 
. * A DD DATA *. YES 

. STMT BEEN .* 

* . FOUND . * 



**** 

* * 

* J3 * 

* * 
**** 



*****tf*l********** 
♦UPDATE * 
*-*-*-*-*-*-*-*-* 
>* PUT RECORD * 1 

* TO SYSUT1 * 

♦ £ SYSPRINT ♦ I 
***************** $ 



.CONTINUED.* 

♦ . .♦ 

♦. .♦ 

♦ YES 



*-*-*-*-*-*-*-*-+ 

* PUT RECORD *- 

* TO SYSUT1 * 

* 6 SYSPRINT * 
********♦♦♦♦*♦♦♦♦ 



*****X4 ********** 

* * 

* GET NEXT * 
>* SYSUT1 *- 

* RECORD * 

***************** 



-*-*-*-*-♦ 
>* ANALYZE * 

* STMT AND * 

* STORE CODES + 
***************** 



**** 

->* J3 * 

* * 
**** 
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Chart 59. IEEEDIT Main routine (Part 2 of 2) 



*59 * 
* B2* 



.* WAS *. 
. STEPNAME 
♦.SPECIFIED.* 



**** 

* * 

* E3 * 

* * 
**** 



.* TYPE *. YES 

= . * 

*. INCLUDE .* 



.* OF SET 



. * THIS *. 
. STEPNAME 
♦.SPECIFIED.* 



**** 

* i 

* E3 *-> 
* 

**** 



*****D4********** 

* * 

* SET * 

* INCLUSIVE * 

* SWITCH OFF * 

* * 
***************** 



*****I35 ********** 

* * 

* SEI * 

* INCLUSIVE * 

* SWITCH ON * 

* * 
***************** 



*****E2 ********** 

* * 

* SET * 
*INCLUDE/EXCLUSI*<- 

* VESWITCH OFF * 

* * 
***************** 



**** 

*59 * 

* F2 *-> 



E3 



NO .* THIS A 
< — * . JCL 
*. STMT 



.* HAS *. 
YES .* A DD DATA *. 
< — *. STMT BEEN . 
*. FOUND .* 



WO . * TH±b *. 

>r *. STATEMENT .* 

♦.CONTINUED.* 

1 *• •* 
V *. .* 



***** 
*58 * 
* C2* 



*****J2 ********** 

* * 

* GET * 

* NEXT MASTER *- 

* RECORD * 

* * 
***************** 



*****E4** ******** 

* * 
POSITION * SET * 

* >* POSITION COPY * 

* SWITCH ON * 

* * 
***************** 



*****F3********** 

* * 

* SET * 
*INCLUSE/EXCLUDE* — 

* SWITCH ON * 

* * 
***************** 



***** 

*58 * 

* G3* 

* * 



*-*-*-*- 



>* ANALYZE * 

* STMT 6 STORE * 

* CODES * 
***************** 
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FD ANALYSIS MODULE (IEBFDANL) Charts 64, 65 

Entry Points: IEBFDANL (via LINK from IEBDG). 

Also, on return from module IEBFDTBL. 



Functions: 

Get storage for FD table. 
Analyze FD card keywords and 

parameters. 
Place FD card keyword parameter 

values in FD table entry. 
Place FD picture in a temporary 

storage area. 

Macro Instructions Used : 

LINK (SVC 6) 
FREEMAIN (SVC 5) 
GETMAIN (SVC 4) 



Exits Taken : 

FD table module 
Base module 

Subroutines Used: 

Validity check; EP = VALCHECK. 
Convert decimal to binary; 

EP = CONVB. 
Move characters; 

EP = MOVEROUT. 

Messages (Numbers) Used: 
3, 5, 6, 10, 11, 12, 13, 15, 21. 



LINK 



Return 



Functions 



FD TABLE MODULE (IEBFDTBL) Charts 66, 67 
Entry Point : IEBFDTBL (via LINK from IEBFDANL). 
Exit Taken: 



Complete the construction of 

an FD table entry. 
Assign defaults for FD keyword 

parameters if necessary . 
Place picture or format pattern 

in storage. 

Macro Instructions Used: 

GETMAIN (SVC 4) 
FREEMAIN (SVC 5) 



FD analysis module 

Subroutines Used: 

Convert EBCDIC to binary; 

EP = CONVB. 
Move characters; EP = MOVEROUT. 
Validity check; EP = VALCHECK. 

Mess ages (Numbers) Used : 

3, 6, 8, 10, 21. 



LINK 



Return 



C 



CALLING PROGRAM 



Job Control 
Language 

Invocation 



} 



EXEC 

LINK 
ATTACH 



} 



Return 



BASE MODULE (IEBDG) Charts 60, 61, 62 

Entry Points: IEBDG (from Calling Program). 

" Also, on return from modules IEBFDANL, 

IEBCRANL, IEBDGMSG, AND IEBDGCUP. 



Functions: 



Get storage for common work area . 

Initialize work area. 

Assign defaults 

Open input and message data sets. 

Get storage for output work area. 

Scan all control cards: 

Process DSD, REPEAT, DUMP, 

and END cards. 

Pass control to process FD 

and CREATE cards. 
Pass control to other modules as 
required. 
Cause display of error messages. 

Macro instructions Used: 

GET 

GETMAIN (SVC 4) 
LINK (SVC 6) 
OPEN (SVC 19) 
SYNADF (SVC 68) 
SYNADRLS (SVC 68) 



Exits Taken: 

Message Module 
FD Analysis Module 
Create Analysis Module 
Clean-up Module 
Calling Program 

Subroutines Used : 

Convert decimal to 

binary; EP = CONVERTB. 
DCB exit (at open time); 

EPs = DCBROUTl, DCBROUT2, 

and DCBROUT3. 
Synchronous error; 

EP = ERRORS. 

Messages (Numbers) Used: 

1, 2, 3, 5, 10, 12, 14, 15, 18, 
20, 21, 24, 25, 26, 28, 30. 



LINK 



Return 



MESSAGE MODULE (IEBDGMSG) Chart 75 

Entry Point: IEBDGMSG (via LINK from IEBDG) 

Functions: Exit Taken: 

Print heading information. Base Module 

Print control card images. 

Print program messages. Macro Instruction 

Print error flags. Used: 

Keep page count. 

PUT 



LINK 



LINK 



Return 



Return 



CLEAN-UP MODULE (IEBDGCUP) Chart 63 
Entry Point : IEBDGCUP (via LINK from IEBDG) 
Functions : Exit Taken : 

Close user output and input Base Module 

DCBs. 
Close data generator input Macro Instructions 

and message DCBs. Used: 

Free storage for DCBs and 

buffer pools. CLOSE (SVC 20) 

FREEMAIN (SVC 5) 
FREEPOOL (SVC 10) 



CREATE ANALYSIS MODULE (IEBCRANL) Charts 68, 69, 70, 71 , 72 

Entry Points: IEBCRANL (via LINK from IEBDG). 

Also, on return from module IEBCREAT. 



Functions: 

Analyze create card keywords 

and parameters. 
Build create table entries. 
Get storage for create tables. 
Build picture table. 
Build FD address table. 
Build exit name table. 
Give control to create module. 

Macro Instructions Used: 

GETMAIN (SVC 4) 
LINK (SVC 6) 
LOAD (SVC 8) 



Exits Taken : 

Create Module. 
Base module. 

Subroutines Used : 

Convert; EP = CONVDB. 

FD name search; EP = FDSRCH. 

Parameter scan; EP = SPSCAN. 

Messages (Numbers) Used: 

3, 4, 5, 6, 7, 8, 10, 12, 20, 21 



LINK 



Return 



Functions: 



CREATE MODULE (IEBCREAT) Charts 73, 74 

Entry Point : IEBCREAT (via LINK from IEBCRANL). 
Also, on return from user exit routine. 

Exits Taken: 



Read records from input data sets. 
Generate output records (test data). 
Permit user to modify output records. 
Release storage used for following 
tables: 

Create 

Picture 

FD Address 
Delete user routine from storage. 

Messages (Numbers) Used: 

9, 10, 16, 17, 29, 30. 



Create Analysis Module. 
User Exit Routine 

Macro Instructions Used: 

FREEMAIN (SVC 5) 

GET 

GETMAIN (SVC 10) 

PUT 

SYNADF (SVC 68) 

SYNADRLS (SVC 68) 



Note: EP= Entry Point 



•Figure 55. Information Summary and Overall Flow of Data Generator Program 
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The Data Generator (IEBDG) Program 



The data generator program (IEBDG) provides 
test data that can be used in program 
debugging procedures. The program will 
construct multiple data sets within a job 
that uses either the physical sequential or 
the partitioned access method. The records 
within these output data sets may consist 
of fields that are defined by any one of 
seven IBM character formats, each of which 
may be modified by any one of eight types 
of action. Alternatively, a user may elect 
to provide his own output pattern in the 
form of a 'picture' instead of an IBM for- 
mat. If desired, a user may also inspect 
and/or modify the output records before the 
records are written in the test data set. 

The IEBDG program acts as a problem pro- 
gram, which may be executed as a job step 
by use of the job control language, or 
which may be invoked by a calling program 
using either the LINK or the ATTACH macro 
instruction. Specification of either the 
program name (IEBDG) or the procedure name 
on the EXEC statement causes control to be 
given to the data generator program. In 
the case of invocation of the IEBDG pro- 
gram, the entry point (EP) parameter in the 
macro instruction operand specifies the 
program's symbolic name. Job control sta- 
tements or parameter list information, and 
the IEBDG utility control statements, main- 
tain control of the program and describe or 
specify the functions to be performed. 
They also describe or define the input and 
output data sets to be used. Depending on 
the specifications of the user, the records, 
of the input data set may be either blocked 
or unblocked. 

In the case of output records, the 
fields within a record may be repeated as 
desired., and the output records may be a 
part of a logical block, which may also be 
repeated. If an existing data set is used 
as the input data to the program, the 
fields within the individual records of the 
data set may be retained, modified, or 
replaced as desired. Also, the IEBDG pro- 
gram may generate output records that can 
be imbedded within the records of an exist- 
ing (input) data set. The contents of the 
output (test data) records are defined by 
the utility program control statements. 

Program Functions 

The functions of the IEBDG program are per- 
formed by seven modules, which reside in 
the link library, SYS1.LINKLIB. At any 
given time, at least two modules (the con- 
trol module and one or more other modules) 
will reside in the region assigned to the 
program. (If the region has enough space, 
all seven of the modules may be resident at 



the same time in the region.) The program 
contains a control module, a clean-up 
module, a message module, two analysis 
modules, a table-building module, and an 
output record generating module. Control 
passes within the irodules of the program by 
means of the LINK macro instruction. If an 
exit to a user routine is specified, a 
branch-and-link procedure is used. Figure 
55 indicates how control is passed between 
the modules of the IEBDG program. 



The control (or base) module receives 
initial program control from the calling 
program and returns control to the calling 
program at the completion of the IEBDG pro- 
gram. This module scans the utility con- 
trol cards for the function (e.g., FD card 
analysis, REPEAT card analysis) to be per- 
formed and passes control to the appropri- 
ate module that performs the function. 

The clean-up module (IEBDGCUP) receives 
control from the base module to close the 
input and output data sets and to release 
the storage areas that were used by the 
program. This module returns control to 
the base module. 

The message module (IEBDGMSG) has the 
prime function of putting out the images of 
the control cards, and of putting out the 
messages required as a result of program 
operation. It receives control from, and 
passes control to, the base module. 

The message module places information 
about the operation of the data generator 
on the system output (SYSOUT) device. This 
information includes processed control 
cards, heading and paging information, and 
normal completion messages. Error messages 
caused by abnormal conditions encountered 
by the data generator program also appear 
on the SYSOUT device. Incorrect control 
card parameters cause messages that will be 
printed immediately below the printout of 
the control card. Messages begin at print 
position one, and the printout of control 
cards starts at print position ten. 

Both the create analysis (IEBCRANL) and 
the FD analysis (IEBFDANL) modules analyze 
the parameters found on one of the two 
field- or record-defining control cards. 
Using the parameters found, these modules 
construct tables for use by subsequent 
modules that may require the information in 
the tables. In the case of the FD analysis 
module, control is given to the FD table 
building module, IEBFDTEL, to complete the 
construction of the table. 

The output record generating module, or 
create module, IEBCREAT, controls the 
generation of the test (output) data reco- 
rds for the user. This module also passes 
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control to a user exit routine if output 
record modification is to be performed. 

Control Card Scanning 

Whenever any control card scanning is to be 
done, all modules within the IEBDG program 
employ the same general scanning techni- 
ques. The information to be scanned is 
placed in an input work area to which a 
register points. Information within this 
work area is scanned one byte at a time as 
the scan method looks for a non-blank 
character in a given column. If a nonblank 
character is encountered in column one of a 
card image, a control card name has been 
found. This name is of no significance to 
the program, and it may be up to 8 bytes in 
length; but it must be followed by a blank 
column. The card type (DSD, FD, END, etc.) 
is then determined. If the type is not 
valid, the program is terminated. 

Following the card type and blank 
column, the finding of a nonblank indicates 
the presence of a keyword. As the scan 
encounters a keyword, an attempt is made to 
match the keyword with valid keywords in 
the program. If a match is made, a branch 
is made to the appropriate routine to pro- 
cess the keyword. If no match is made, or 
if incorrect parameters are associated with 
a given valid keyword, an error is indi- 
cated and a message is printed. A comma or 
a blank signifies the end of a parameter. 
A continuation card is to follow when eith- 
er a nonblank character in column 72 of a 
card, or a comma followed by a blank column 
is encountered. The scan of a continuation 
card begins in column 4 of the card. 

Except for the continuation of the scan 
of a PICTURE parameter, the first nonblank 
character in a continuation card indicates 
the presence of a keyword. In the case of 
the PICTURE parameter scan continuation, 
the character (or blank) in column 4 and 
any succeeding column (s) are recognized as 
belonging to the PICTURE parameter. This 
permits the presence of imbedded blanks and 
delimiter characters in the PICTURE 
parameter. 



THE EASE MODULE (IEBDG) CHARTS 60,61,62 

Module IEBDG is the first module of the 
data generator program to be placed in main 
storage. It is entered from a calling pro- 
gram and returns control to the calling 
program at the completion of the data 
generator program. Depending on the 
requirements encountered during the proces- 
sing performed by this module, it will give 
control to (and receive control from) one 
of the following modules: the message 
module, the clean-up module, the FD analy- 
sis module, or the create analysis module. 



The primary functions of the base module 
are: 

• To get storage for a work area (the 
common communication area) . 

• To open the input, output, and message 
data sets. 

• To read the utility control cards. 

• To cause error messages to be 
displayed. 

• To pass control to the appropriate 
module as required. 

Initialization 



Upon entry to this module, registers are 
saved for a later return to the caller. By 
use of an SVC 10 instruction, storage is 
obtained for a common communication area. 
This area is then given initial (default) 
values for ddnames, line count (for printer 
control) , and paging information. To pro- 
vide for the specification of a random 
binary number format for the output data 
set, an initial multiplier value is estab- 
lished for a random number generator and 
placed in the communication area. 

If a calling program has invoked the 
IEBDG program by means of a LINK or an 
ATTACH macro instruction, the previously 
assigned default values in the communica- 
tion area are replaced by the values speci- 
fied in the parameter list for the invoca- 
tion. The assigned names of SYSIN for the 
utility input control data set and SYSPRINT 
for the utility output control data set may 
be changed as a result of an invocation. 
If so, the changed names are effective for 
the duration of the job. After invocation, 
the input and output control data sets are 
then opened. 

Opening Data Sets 

If the IEBDG program is called by use of 
the job control language statements, the 
input (SYSIN) and message (SYSPRINT) data 
sets are opened and default values assigned 
as required. 

Each time a data set is opened, a DCB 
exit routine in the base module is entered. 
The entry points to this routine are deter- 
mined by the function (input, output, 
SYSIN, or SYSOUT) of the data set being 
opened. At each entry, the routine estab- 
lishes default values for the record for- 
mat, the logical record length, and the 
blocksize for the data set. 

A common section of the DCB exit routine 
is then entered to inspect the actual 
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values of record format, logical record 
length, and blocks ize. These values norm- 
ally have already been placed in the re- 
spective fields of the DCB by the open 
routine. 

For data sets having a fixed record for- 
mat, the common routine determines if the 
block size is an integral multiple of the 
logical record length. An integral mul- 
tiple is required; otherwise, default 
values are assigned (if not previously 
assigned) so that an integral multiple is 
assured. 

As the DCB exit routine evaluates the 
preceding record parameters for input or 
output data sets, it sets the FLUSHSW 
switch (at COMMON + 572) ± to one if default 
values are assigned. (If the switch is 
set, then, when the base module again 
receives control, it flushes the control 
cards and procedes to terminate the job.) 
The exit routine then returns control to 
the open routine to complete the opening of 
the data set. 

In testing for a successful data set 
opening, only the input (SYSIN) data set is 
tested by the base module. Because a user 
may not desire any messages, or may not 
have enough space available for an output 
data set for messages, the testing for a 
successful opening of the output (SYSPRINT) 
data set is done by the message module when 
the module is first needed. 

Messages 

When messages are required during the pro- 
cessing by the base module, a linkage is 
made to the message module. Upon return 
from the message module, processing will 
continue or, depending on the severity of 
the situation causing the message, a return 
is made to the calling program. [When any 
of the modules of the data generator pro- 
gram require the printing of an error mes- 
sage, control is returned from the module 
in command to the base module, which will 
then link to the message module. Depending 
on the severity of the error causing the 
message, control may or may not be returned 
from the base module to the module that was 
in command.] A condition code, CONDCODE, 
(at the field COMMON+404) , is set prior to 
giving control to the message module. Upon 



x In the discussion of the modules of the 
data generator program, references to 
locations in the common communication area 
are indicated by giving the decimal value 
of the displacement, or offset, from the 
start of the area. As an example, the 
offset of the field CONDCODE (condition 
code setting) would be given as COMMON + 
404. 



return from the message module, this code 
is checked to determine the severity of the 
situation. The base module returns control 
to the calling program by freeing the 
storage space for the common communication 
area, restoring the calling program's 
environment (registers) , and issuing a BCR 
instruction. 

After the input data set has been 
opened, a program heading message and an 
indication of any PARM field (on the EXEC 
card for the program) errors that may be 
present are placed on the SYSPRINT data 
set* 

Reading Control Cards 

The GET macro instruction is used to place 
a control card in the input work area. The 
card image is printed on the SYSPRINT data 
set, and tests are made to determine the 
type of card in the input area. For either 
an FD control card or a CREATE control 
card, the base module will give control to 
the appropriate processing module. 

For any new group of data generator con- 
trol cards, the first nonblank card must be 
a DSD control card. [If a blank card is 
present, it is merely flushed through and 
the next card is checked.] In order to ind- 
icate when a DSD control card is detected, 
a switch, DSDSW (at COMMON+550) , is set to 
1. This switch is tested for all but the 
DSD card in a group of control cards. If 
the first card in a group is not a DSD 
card, the syntax of the other control cards 
may be checked, but the program will not be 
executed. An error message will indicate 
the reason. 

Following the test for a DSD card, the 
other utility control cards are checked for 
card types. The finding of a particular 
type causes the base module to give control 
to the proper module for processing of that 
control card. If a continuation card 
belonging to a given control card, is 
encountered, the base module gives control 
to the appropriate control card processing 
module to scan the card. Should a DSD con- 
trol card have no CREATE control card(s) 
between it and either an END card or a /* 
card, the resulting output data set that is 
created will be a null data set (i.e., no 
picture or pattern will be produced) . 

As the base module continues its scan, a 
check is made for a blank following the 
card type (DSD, FD, etc.) as well as for 
improper control card names or name length. 
Errors in one of these areas will cause a 
message to be printed and the program will 
not be executed. 

Included within the routines of the base 
module is a SYNAD routine for the SYSIN 
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data set. The SYNAD routine obtains unre- 
coverable I/O error information that is to 
be printed on the SYSPBINT data set. (The 
message module contains a SYNAD routine for 
the SYSPRINT data set; the create module 
contains a SYNAD routine for input and out- 
put data sets.) After the information is 
printed, control is given to the clean-up 
module. 



Ease Module Card-Processing 

The following data generator control cards 
are processed by the base module: The DSD 
card, the REPEAT card, the END card, and 
the DUMP card. 

DSD CARD PROCESSING ; In requesting storage 
for the user's DCE, allowance is made for 
future implementation to satisfy an indexed 
sequential data set. Figure 56 indicates 
the allocation of the storage area's 272 
bytes for the current support. 

Hex Dec "^ — 4 bytes — - — ->- 



60 



96 



100 256 

108 264 

110 272 

• Figure 56. 



Current Data Control Block 


Currently Unused 


Address of next DCB 


DDname for ... 


• • . Current DCB (8 bytes) 


Switches 



Storage Area Obtained by Ease 
Module for Current DCB 



A storage area is obtained as required for 
each of the data sets described by the 
DDnames on the DSD control card. In the 
case of storage for the last data set's 
DCB, the four-byte field beginning at loca- 
tion 256 (hex. 100) is zero. 

REPEAT CARD PROCESSING ; When the base 
module scans the parameters of the REPEAT 
card, it sets an indicator, QUANSW (at 
COMMCN+576), to record the finding of the 
required keyword. After each valid keyword 
is found, the numerical value of its param- 
eter is packed and converted to binary. 
Since 65,535 is the largest number that can 
be held in a 2-byte storage field, any 
parameter value that is greater than that 
results in a message to the programmer. 
Acceptable values for the QUANTITY and the 
CREATE parameters are stored for use by the 
create analysis module. 



END CARD PROCESSING ; When an END control 
card is encountered, the base module gives 
control directly to the clean-up module if 
all of the required number of entries spe- 
cified on the REPEAT control card have been 
processed. Otherwise, a message is printed 
and then control is given to the clean-up 
module. Upon return from the clean-up 
module, the base module reads the next con- 
trol card (which may be either a data 
generator control card or a /* delimiter 
card) . There may be one or more additional 
groups of data generator control cards 
before a /* card. 

DUMP CARD PROCESSING ; The reading of a 
DUMP control card causes a printout of the 
user's program and/or storage areas 
assigned to his program. When the DUMP 
control card is encountered, the base 
module places a zero in register 15 and 
forces an ABEND dump by branching to that 
register. Further description of the use 
of a DUMP control card is given in the sec- 
tion Service Aids. 



THE CLEAN-UP MODULE (IEBDGCUP) CHART 63 

When either an END control card, indicating 
the end of a group of data generator con- 
trol cards, or a /* delimiter card, indi- 
cating the end of a job, is encountered, 
the base module gives control to the clean- 
up module. 

All user input and output data control 
blocks (DCBs) that have been opened are 
closed. For each of these DCBs, any buffer 
pools that data management routines had 
obtained for use by the data generator pro- 
gram are released to the system. The 272- 
byte storage area(s) that the base module 
obtained for each of these DCBs are also 
released to the system. 

If the entry to this module was the 
result of encountering an END control card, 
this module returns control to the base 
module for the purpose of checking for 
another group of control cards. 

If the entry to this module resulted 
from encountering a /* delimiter card, this 
module will close both the system input 
(SYSIN) and the system output (SYSPRINT) 
DCBs of the data generator program, and 
free any related buffer pools for these 
data sets. 

The storage area that was obtained for 
the data generator program's input and out- 
put DCBs (96 bytes each) was initially 
obtained as a part of the common communica- 
tion area by the base module. Therefore, 
the base module will release this area 
after it receives control from the cleanup 
module. 
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THE FD ANALYSIS MODULE (IEBFDANL) CHARTS 
64,65 

This module scans and analyzes the parame- 
ters on the FD control card. Module IEBF- 
DANL is initially entered from the base 
module. If module IEBFDANL does not 
encounter a condition that causes termina- 
tion of the job, it will use the FD table 
module (described later on) as a subrou- 
tine. After the FD table module returns 
control to the FD analysis module, the 
latter module returns control to the base 
module. 

The FD analysis module begins the assig- 
nment of information to a table called the 
FD table. This table is used by both the 
create analysis module and the create 
module. The FD table module completes the 
construction of the table. 

An FD table entry has 64 bytes. Storage 
for the FD table is obtained in increments 
of 512 bytes (enough for eight table 
entries) by the FD analysis module. Each 
entry contains most of the parameter infor- 
mation (or a processed version of the 
information) from one FD control card. If 
a PICTURE keyword has been specified on the 
FD control card, the picture information is 
placed in another area of main storage. 
The FD table is shown in Figure 57. 

Upon entry to the FD analysis module, 
tests are made to determine whether or not 
the entry is due to a continuation card. 
Such an entry may be due to the continua- 
tion of the parameter string on a card, or 
to the continuation of the PICTURE parame- 
ter on a card. If the entry is due to 
either a continuation card or a picture 
continuation, storage for an FD table entry 
may already be available as the result of 
processing a previous FD control card in 
the same set of data generator control 
cards* If the entry is not due to a con- 
tinuation card, an FD table entry is to be 
constructed. A GETMAIN macro instruction 
is issued to obtain storage for an FD 
table. 



FD Card Scanning 

The scan of the actual FD card keywords and 
their associated parameters is then per- 
formed. As each keyword is encountered, 
its parameter is scanned, validated and/or 
converted if required, and then placed in a 
reserved spot in the FD table. If a key- 
word error or a parameter error is encoun- 
tered, an appropriate message will be 
printed on the system output device. The 
severity of the error determines whether 
the program is terminated at that point or 
whether modified processing (e.g., syntax 
checking only) will continue. Control and 



storage tables are constructed even for 
syntax checking procedures. 

A user may specify either the FORMAT or 
the PICTURE keyword, but not both, on the 
same control card. The FD analysis module 
sets a switch, either FDFMTSW (at COMMON* 
539) or FDPLSW (at COMMON+540) , when it 
encounters one of these keywords. If the 
other keyword is then encountered in the 
scan of the same card, a test of the 
previously-mentioned switch for the keyword 
first encountered reveals the error. 

Table 2 lists the keywords of the FD 
control card and indicates the processing 
done on the parameters of the keywords by 
the FD analysis module. 

After the keyword parameters on the FD 
control card have been scanned and placed 
in the FD table, the FD analysis module 
gives control to the FD table module to 
complete the construction of the FD table 
entry. The FD analysis module assigned 
only the initially specified values of 
parameters to the FD table. If any keyword 
except LENGTH and NAME was omitted from the 
FD control card, the FD analysis module 
does not perform processing for the keyword 
and does not fill in the appropriate space 
in the FD table entry. Default values for 
keyword parameters are assigned by the FD 
table module. 



THE FD TABLE MODULE (IEBFDTBL) CHARTS 66,67 

This module completes the construction of 
the FD table, which was begun by the FD 
analysis module. At the time of entry into 
this module, an FD card has been completely 
scanned and initial values from the card 
have been placed in the FD table. The FD 
analysis module uses a LINK macro instruc- 
tion to give control to the FD table 
module, which is then used as a subroutine 
by the FD analysis module. The FD table 
module returns control to the FD analysis 
module. 

FD Pattern Construction 

Initially, module IEBFDTBL determines the 
type of picture or format specified in an 
FD control card. (This field will be used 
by the create module when it constructs the 
output records . ) If neither a picture nor 
a format is specified, the FD table module 
assigns a default value to the field. 

Before further processing is done on a 
non- EBCDIC picture, the picture numbers are 
checked for validity by comparing the zone 
bits of the numbers against a hexadecimal 
"F"» An incorrect value results in an 
error message indication, and control is 
returned to the calling module. [A picture 
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having a packed decimal specification roust 
have a length specification that is less 
than or equal to 16 since the Pack instruc- 
tion can handle up to 16 bytes.] Otherwise, 
the numbers are converted to the specified 
form, storage is obtained for the picture, 
and the picture is moved into the storage 
area (from the temporary storage area into 
which the picture had been placed by the FD 
analysis module). The temporary storage 
area is then released and the FD table 
module gives control back to the FD analy- 
sis module. 

Except for the NAME and LENGTH keywords, 
the FD table module assigns default parame- 
ter values for each keyword that is omitted 
from an FD control card. The values 
assigned are shown in Table 2, and they are 
placed in the FD table. 

For a pattern, which may be either a 
user EBCDIC picture specification or an IBM 



format specification, module IEBFDTBL 
determines the action that is specified on 
the FD control card. Based on this deter- 
mination (including a possible default 
determination) , the module makes an entry 
in the FDACTION field of the appropriate FD 
table and sets the appropriate bit in the 
FDSWITCH field of the table to one. 

The module then determines the amount of 
storage required to hold the pattern. The 
amount of storage required depends on the 
action which the create module will later 
apply to the pattern. Ey means . of the GET- 
MAIN macro instruction, the FD table module 
obtains the necessary storage. To provide 
for a wave or a ripple type of action, the 
storage area must contain two contiguous 
copies of the pattern. If the action is a 
roll, three contiguous copies of the pat- 
tern must fit in the storage area. The 
create module requires the repeated pat- 
terns when it generates the output records. 



158 



Hex Dec 




-8 bytes 



10 16 



18 24 



20 32 



28 40 



30 48 



38 56 



40 64 



200 512 



208 520 



FDNAME(FD Field Name) 



Unused at Present 



Unused at Present 



FDLGTH 
(FD Field Length) 



FDSWITCH 
(Action * 
Switches) 



FDFILL 
(EBCDIC or 
Hex Char. ) 



FDOBUF 
(Starting Location in 
Output Record) 



FDMLGTH 
(Move Length Counter) 



FDSLGTHR 
(Sequence Length 
Restore Value) 



FDCYCLE 
(Cycle Number) 



FDSIGN 
(Decimal or 
Binary Field) 



FDCHAR 
(Starting Char 
of field) 



FDFRINC 
('From 1 Address 
Increment Counter) 



FDTOINC 
'To' Address Increment Counter) 



FDFRINCR 
('From' Increment 
Restore Value) 



1 
FDTDINCR 
('To' Increment 
Restore Value) 



FDINDNUM (index number) 



FDACTION 
(Action) 



FDFORMAT 
(Format Patterns) 



FDRANGE 
(Range Number) 



FDFRDMAD 
('From' Address for Pattern or Picture) 



FDCYCCNT 
(Cycle Count) 



LTDFREE 
(Length of Storage 
to Free) 



FDSLGTH 
(Sequence Length) 



Unused 



Room For Seven More 64-Byte FD Table Entries (as above) 



Unused 



NXTFDTAB 
Address of Next FD Table. (If none, value is Zero) 



One FD 

table 

entry 

(64 

Bytes) 



One 

FD 

table 

520 

Bytes 



*OFFSET 32 (10) BIT 12 3 4 5 6 7 

SWITCH INDBYNAM PASS FXACTION RPACTION RDACTION WVACTION STACTION NUACTION 



•Figure 57. FD Table Constructed by FD Analysis Module and FD Table Module 
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• Table 2. FD Control Card Keyword Parameter Processing, and Default Values Assigned, if 
Required 



FD j Processing Applied to Keyword Parameter 
j. — , T T - 

Keyword | Validity | Value 

Checked I Converted 



Other Processing 



t 1 

| Default Value 

^ 

(If any) ** 



NAME * 



Yes 



No 



Length checked for maximum of eight 
characters. 



None. 



LENGTH * 



Yes 



Yes 
Yes 



None. 



None. 



STARTLOC 



Yes 



Subtract one from value. 



First available 
byte in record. 



PICTURE 
(length) 



Yes 



Yes 



Check for occurrence of FORMAT 
keyword. 



None. 



PICTURE 
(field) 



No 



NO 



Get storage for picture. 
Determine type of picture. 
Move picture to storage. 

(Include continuation 

cards. ) 



Fill character. 



FORMAT 



»■ 

ACTION 
I 

FILL 



NO 



No 



Check for occurrence of PICTURE 

keyword. 

Check for two-character pattern. 



Fill character. 



No 



NO 



Check for two-character type, 



FX (Fixed) 



No 



Yes 

(Hex 

only) 



Check for EBCDIC or Hex type with 
two digits. 



Binary zeros. 



CYCLE 
\ 

RANGE 
| 

CHARACTER 
(Of FORMAT) 



Yes 



Yes 
Yes 

No 



None. 



One. 



Yes 



None. 



None. 



No 



None. 



A (for alphabetic 
and alphameric) . 
•blank* (for 
collating) . 



SIGN 



NO 



NO 



Determine if sign value is valid. 



Plus. 



INDEX 



Yes 



Yes 



None. 



None. 



* These keywords are required to be present in the FD control card. 

the program will be terminated. 
** Default values assigned by FD table module. 



If not present. 



After storage is obtained to accommodate 
the desired pattern action, the module 
places the specified fill character or a 
default fill character in each byte of the 
area. It then moves the pattern into the 
storage area the required number of times. 
Any leftover space (due to differences in 
field length and picture length specifica- 
tions) contains the fill character. 

If a PICTURE keyword had been specified, 
the temporary storage area that the FD 
analysis module had used to hold the pic- 



ture is released before the FD table module 
returns control to the FD analysis module. 
If a FORMAT keyword had been specified, the 
starting character for an alphabetic, 
alphameric, or a collating sequence field 
is resolved before control is returned to 
the FD analysis module. For other formats, 
the storage field is initialized to a value 
that depends on the format specified. (For 
binary format, the value is a binary 1; for 
packed decimal, the value is a packed 
decimal 1; for zoned decimal, the value is 
a zoned decimal 1.) 
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For the FD table module, a 63-byte 
sequence of characters resides in storage 
at location COPAT. The 28th byte of this 
sequence is at location ALPAT. After 
resolving the starting character for an AL, 
AN, or CC format, the module fills the pat- 
tern field using the characters of this 
sequence. If the starting location value 
is a default value, a collating sequence 
pattern begins at location COPAT, and an AL 
or AN pattern begins at location ALPAT. 

The pattern field is filled only in 
increments that are equal to or less than 
the length of the sequence that is being 
used for the format pattern. If the length 
of the field (given at decimal offset 24 in 
the FD table) to be moved is less than the 
indicated sequence length, the number of 
characters moved will be equal to the 
FDLGTH field value. If the length of the 
field to be moved is greater than but not 
an integral multiple of the indicated 
sequence length, the number of characters 
moved for all moves but the last will be 
equal to the sequence length. The last 
move will contain the characters remaining 
after an integral number of moves have been 
made, each move containing the number of 
characters in the given sequence. If the 
FDLGTH value is equal to an integral mul- 
tiple of the sequence length, the number of 
moves is equal to the integral number. 



THE CREATE ANALYSIS MODULE (IEBCRANL) 
CHARTS 68,69,70,71,72 

This module scans and analyzes the parame- 
ters on the CREATE control card. The ini- 
tial entry to module IEBCRANL is from base 
module when a CREATE card is encountered. 
Other entries to the module occur when cre- 
ate continuation cards or create card com- 
ments cards are encountered. If the create 
analysis module does not encounter a condi- 
tion that suppresses the creation of output 
records, it will use the create module as a 
subroutine to generate output records. The 
create module will return control to the 
create analysis module, which will, in 
turn, return control to the base module. 

Table Construction 

The create analysis module constructs four 
types of tables that are used by the create 
module: 

• The create table 

• The picture table 

• The FD address table 

• The exit name table 

The create table is the largest of the 
four. It may contain one or more create 
entries. Module IEBCRANL establishes a 
2 8-byte create entry for each CREATE con- 



trol card that it processes. (See Figure 
58.) One create table may contain up to 18 
create entries. These entries contain 
pointers to picture tables and FD address 
tables. More than one create table may be 
constructed. 

The picture table contains information 
about, as well as the actual, picture str- 
ing that may be specified on a CREATE card. 

The FD address table contains the 
addresses of the FD table that have been 
constructed to contain information from FD 
cards. 

The fourth type of table that the create 
analysis module constructs is the exit name 
table. This table contains the names of 
any user exit routines that have been spe- 
cified. When a user's exit routine is 
loaded into main storage, the storage 
address of the routine is placed in the 
create table. 

Module Entries 

Since the create anaysis module may have 
been entered before in processing a given 
group data generator control cards , the 
initial analysis performed upon entry to 
the module consists of determining the 
cause for the module's receiving control. 
The create continue switch, CRCSW (at 
COMMON+564), is tested for this purpose. 
If the entry to the module is the first one 
for a given CREATE control card, storage 
for a create entry is obtained either from 
an existing create table or by the issuance 
of a GETMAIN macro instruction for space 
for another 512-byte create table. (As 
each new create table space is obtained, it 
is 'chained' to the previous space and 
initialized to all zeros.) Then, the 
module scans the control card keywords one 
at a time. If an invalid keyword is 
encountered, the create analysis module 
indicates a message, sets the NOGOSW switch 
(at COMMON+551) to suppress the creation of 
output records, and gives control back to 
the base module to continue the checking of 
syntex on other control cards. 

If the entry to the create analysis 
module is due to a continuation of a CREATE 
control card, a check is made to determine 
if the parameters of either the NAME key- 
word or the PICTURE keyword were inter- 
rupted. (Except for the NAME and PICTURE 
keyword parameters of the CREATE card, all 
other CREATE card parameters must be on the 
same card as their associated keywords. 
The picture string parameter of the PICTURE 
keyword is the only one that may in itself 
be continued to another card.) The name 
continue switches, NAMCSW1 and NAMCSW2 (at 
COMMON + 561), and the picture continue 
switches, PICCSW1, PICCSW2, and PICCSW3 (at 
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Hex Dec 







8 bytes 



Address of next create table 



* f 



One 
Create 
Entry 
(28 



10 16 



18 24 



20 32 



200 512 



204 516 



NXTCRTE 
(Address of next create entry in this table) 



QUAN 
(Quantity value for this entry) 



IDCBPTR 
(Address of input DCB for this DSD group) 



EXITADDR 
(User's exit routine address for this entry) 



PICPTR 
Picture table address for this entry 



FILLCH 
Fill character 
for this entry 



(Not used) 



byt 



f») 



FDADTAB 
(Address of FD Address table) 



(begin next create entry) 



One 

Create 

table 

(512 

bytes) 



space for 17 more create entries 



last FDADTAB in Create Table 



• Figure 58. Create Table Constructed by Create Analysis Module 



CONMCN + 562), are tested to determine if a 
parameter may be on a continuation card. 
For a continuation card, the scan begins in 
column 4 . 

If the entry to the create analysis 
module is because of a comments continu- 
tion, control is given to the base module, 
IEBDG, to process the comments, and to read 
the next control card. 

Module Subroutines 

As the create analysis module processes 
each valid keyword, it may branch to sub- 
routines within the module. These subrou- 
tines perform functions of parameter scan- 
ning (SPSCAN routine) , packing and/or conv- 
ersion (CCNVDB routine) , and table search- 
ing (FDSRCH routine). When the processing 
for a given keyword is completed, the key- 
word scanning section of the module scans 
the next keyword unless a continuation card 
has been indicated. If the latter action 
has occured, module IEBCRANL gives control 
to the base module to read the next control 
card. 

THE SPSCAN SUBROUTINE : The function of the 
SPSCAN subroutine is to check the validity 
of a keyword parameter. The routine moves 
a pointer across each character in the 
parameter and checks for commas, blanks, 
and parentheses. It also determines wheth- 
er a parameter has been extended into 
column 72 of a control card. If so, an 



error message is indicated and control is 
given back to the base module. 

After a comma or a blank is encountered, 
the parameter length is determined and 
checked for an invalid length of zero, and 
the routine returns control to the calling 
section of the module. (An invalid parame- 
ter length causes the module to indicate a 
message and return control to the base 
module.) 

THE CCNVDB SUBROUTINE : The convert subrou- 
tine, CCNVDB, performs two functions: it 
converts a decimal number to a packed 
decimal number, and it converts a decimal 
number to a binary number. The subroutine 
is used in processing the parameters of the 
QUANTITY, the NAME, and the PICTURE key- 
words. The convert subroutine processes a 
number that can be contained in 4 bytes or 
less. Therefore, a decimal value that is 
greater than 2,147,483,647 will not be pro- 
cessed, and a message will be indicated. 
Module IEBCRANL then returns control to the 
base module. 

In order to determine if a parameter to 
be converted is numeric, the zones of its 
characters are compared against a hexade- 
cimal 'F. 1 Valid numeric characters are 
then converted to a packed decimal format 
and placed in the storage area Q (at 
COMMON+ 216). For all cases except a 
packed decimal picture specification, the 
parameter value is then converted to a 
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binary value and placed in a general 
register. 

THE FDSRCH SUBROUTINE ; Module IEBCRANL 
contains and uses the FDSRCH subroutine in 
processing the NAME keyword parameter. The 
subroutine places a valid name from the 
CREATE control card into storage and then 
compares this name against the names of the 
FD tables (which have been established by 
the FD analysis module) . If the list of FD 
tables does not contain a name that matches 
the name on the CREATE card, a message is 
indicated and the create analysis module 
returns control to the base module. 

When an FD table name that compares with 
a CREATE card name parameter is found, the 
address of the FD table bearing that name 
is placed in an FD address table. (See 
Figure 59.) If there is no room in an 
existing FD address table, the FDSRCH sub- 
routine will obtain storage for a new 
table. The current create entry, whose 
address is given at CURCRTE (COMMON + 316) 
contains the address of the first FD 
address table. All FD address tables are 
chained together by pointers in the tables 
themselves. 

Keyword Processing 

To determine if all keywords on a given 
CREATE card have been processed, module 
IEBCRANL tests the column after the last 
parameter of each keyword. If this column 
is blank and if column 72 of the control 
card is blank, the last parameter on the 
card has been processed. The module then 
establishes a default value for the QUANTI- 
TY keyword parameter if a value has not 
already been supplied on a CREATE control 
card. 

If there are no more continuation cards 
for a given CREATE control card and if the 
create value (from a preceding REPEAT con- 



Hex Dec 




10 16 



ADDRESS OF NEXT TABLE 



FD TABLE ADDRESS 



trol card group) is equal to one, module 
IEBCRANL gives control to the create 
module, IEBCREAT. Otherwise, if the create 
value (determined by testing the field 
CREATENO at COMMON +18) is greater than 
one, the create analysis module gives con- 
trol to the base module to read the next 
CREATE control card. (The field CREATENO 
is initially set to one in case a CREATE 
card is not part of a REPEAT card group.) 

If the column after the last parameter 
contains a comma, the next card column is 
checked. If this next column either is 
column 72 or contains a blank, the module 
gives control to the base module to read a 
continuation card. Otherwise, either a 
message would have been indicated and con- 
trol returned to the base module or the 
subroutine for scanning the next keyword 
will be entered. 

When the create analysis module pro- 
cesses the parameter of the DDNAME keyword, 
it tests the number of characters in the 
DDNAME and determines whether the parameter 
value is SYSIN. If the name length is 
valid and the name is SYSIN, the address of 
the SYSIN data control block (at COMMON + 
116) is placed in the create entry (whose 
address is given at COMMON + 316) for the 
CREATE card being processed. If the name 
is not SYSIN, the input DCB(s) are scanned 
to find a name equal to the CREATE card's 
ddname. In doing the scanning, the address 
of the first input DCB is placed in the DCB 
pointer (at COMMON + 300). The name of the 
DCB (at DCBD + 260) is compared to the 
ddname given on the CREATE card. Unless an 
equal name is found, the process repeats 
with the next input DCE until there are no 
more input DCBs to check. If a successful 
DCB name comparison is made, the input DCB 
address is placed in the create entry. 
Otherwise, a message is indicated and the 
create analysis module gives control to the 
base module. 



- 8 bytes ■ 



FD TABLE ADDRESS 



FD TABLE ADDRESS 



58 88 



space for 16 more FD table addresses 



FD TABLE ADDRESS 



0000 



• Figure 59. FD Address Table Constructed by Create Analysis Module 



Data Set Utility Programs: IEBDG 163 



If the ddnaine search was successful, 
either the given delimiter or a default 
delimiter is placed in the DELIM field (at 
COMMON + 344), or a message signifying an 
invalid delimiter is indicated and the cre- 
ate analysis module returns control to the 
base module. 

When the EXIT keyword is encountered, 
the length of the user's exit routine name 
is checked for validity. If the length is 
valid, the name is placed in a table called 
the exit name table (see Figure 60). The 
user's routine is then placed (via a LOAD 
macro instruction) into main storage, and 
the storage address of the routine is 
placed in the create entry. 

THE NAME KEYWORD : In processing the para- 
meters of the NAME keyword, module IEBCRANL 
searches for multiple names, for 'copy' 
groups (based on the COPY keyword) , and for 
breaks or interruptions in series of names 
within outer and/or inner parentheses. If 
the COPY keyword is not present and if mul- 
tiple names have been indicated (by 
encountering a left parenthesis in the 
scan) , a default value of one is assigned 
to the CCPYVAL field (COMMON + 640). 

The complete processing of the NAME key- 
word parameter (s) includes the use of the 
subroutines FDSRCH, SPSCAN, and, if the 
COPY keyword is present, the CONVDB subrou- 
tine. If multiple names are present, the 
SPSCAN and FDSRCH subroutines are used for 
each name that is encountered. The create 
analysis module indicates that there is a 
continuation in the parameters of the NAME 
keyword by setting switches in the NAMCSW 
field (COMMON + 561) of the communication 
area. If the continuation occurs after a 
•name* subparameter within only the outer 
set of parentheses, the high-order bit (bit 
0) of the NAMCSW field is set to one. For 
a continuation indication that occurs after 
either the COPY keyword or a 'name' sub- 
parameter within the inner set of paren- 
theses, the second bit (bit 1) of the 
NAMCSW field is set to one. 

If an inner group of names is to be 
copied more than once, the create analysis 
module checks the current FD address table 



for enough space each time a name is to be 
copied. If space is not available, storage 
for a new 88-byte FD address table is 
obtained, and the new table is chained to 
the previous one by the first word in the 
current FD address table located at the 
address given in the CURFDGM field (COMMON 
+ 632). 



THE PICTURE KEYWORD ; This section 
describes the processing of the PICTURE 
keyword parameters. The PICTURE length 
parameter is processed first; the start 
location of the picture string is then pro- 
cessed; and the actual picture processing 
is done last. In the case of the FICTURE 
keyword parameters, there are three ways in 
which a continuation card may be 
encountered. 

1. The PICTURE parameter list may be 
interrupted after the length parame- 
ter. In this case, the first (high- 
order) bit of the PICCSW field (COMMON 
+ 562) is set to one; 

2. The PICTURE parameter list may be 
interrupted after the startloc parame- 
ter. In this case, the second bit of 
the PICCSW field is set to one. 

3. The actual picture string may be 
interrupted. In this case, the third 
bit of the PICCSW field is set to one. 

Chart 70 indicates the entry points to the 
section of the module in which processing 
for the continuation card relating to each 
of the above ways of interruption takes 
place. 

In processing the length parameter, the 
module first scans the length and then 
coverts the length value to a binary equi- 
valent. Based on this length, the module 
obtains a storage area called the picture 
table. (See Figure 61.) The binary length 
value is then placed in the field PICLGTH, 
which begins at the fifth byte of the asso- 
ciated picture table. The picture table is 
located at an address given in the PICBASE 
field (at COMMON + 664) of the communica- 
tion area. This same picture table address 
is also placed in the create entry for the 
current CREATE card. 



-8 bytes- 



Space for 6 more user exit routine 



Figure 60. User Exit Name Table Constru cted by Create Analy sis Module 
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Hex Dec 



8 bytes- 



Start-of- Picture offset from 
beginning of record 



PICTURE LENGTH (Bytes) 
(L) 



PICTURE STRING 



PICTURE STRING (Continued) 



L+6 L+tS 



hjlote : L is equal to the value specified as the length subparameter of the PICTURE keyword on the related CREATE control card. 

Figure 61. Picture Table Constructed by Create Analysis Module 



The start location (startloc) parameter 
is scanned; if valid, it is converted to a 
binary value; and the value is then placed 
in the associated create entry. As it does 
after the length parameter, the module then 
checks to see if the next parameter is on 
the same or a continuation card. If a con- 
tinuation card is indicated, the module 
returns control to the base module to read 
the next card. Otherwise, the picture 
string will be processed. 

If the picture string is specified as 
being in EBCDIC (character), the string 
characters are moved directly from the card 
to the picture table. If the picture 
string is to be continued, the continuation 
switch (second bit of the field PICCSW) is 
set to one, and control is returned to the 
base module to read the next card. 

If the picture string is specified as 
being in either packed decimal or binary, 
the complete string must be on one card. 
The card format is checked, and if valid, 
the string value is converted either to a 
packed decimal value or to a binary value 
as specified on the control card. The con- 
verted value is then placed in the picture 
table for use by the create module. 

After each parameter on the CREATE con- 
trol card has been processed, the create 
analysis module checks for a valid delimit- 
ing character and for an indication of a 
continuation card. 



THE CREATE MODULE (IEBCREAT) CHARTS 73,74 

The create module maintains control over 
the generation of output records. This 
module receives control from the create 
analysis module after create entries (in 
one or more create tables) and related 
tables have been constructed. If, upon 
entry to this module, the switch, NCGOSW 
(at COMMON + 551), is on as the result of 
the action of a previous module, the 
generation of output records will be sup- 
pressed and the create module will perform 
only its clean-up functions. Module IEB- 



CREAT always returns ccntrol to the create 
analysis module, which then returns control 
to the base module for the printing of mes- 
sages and/or the reading of the next con- 
trol card. 

Output Record Modifications 

Upon entry to the create module, the NOGOSW 
switch is tested to determine whether to 
continue processing or whether to immedi- 
ately release storage areas and return con- 
trol to the create analysis module. If 
processing is to continue, the record 
characteristics (length, format) are deter- 
mined; a counter, RECREM (at COMMON + 348), 
is initialized with the quantity value from 
the create entry; and the input record size 
(if present) is compared to the output 
record size. The output record field is 
then filled with the create entry fill 
character prior to reading in a record from 
an input DCB. 

FD TABLE MODIFICATION : If there is no 
input DCB, modifications based on values in 
the FD table (s) are made directly to the 
output area containing the fill character. 
Otherwise, the modifications are made to 
the input record that has overlaid the fill 
characters in the output area. 

The modifications based on the FD table 
values involve the action, index, cycle, 
and range parameters from the FD control 
card. Initially, an FD pattern at the 
storage address given in the field FDFROMAD 
of an FD table is moved to the output area, 
which, at this point, contains either a 
fill character or an input record. The 
create module then inspects other FD tables 
that may have been indicated by the CREATE 
control card as belonging to the current 
create entry and moves the patterns from 
these tables into the output area. The 
output record starting location for each FD 
pattern is given in the field FDOBUF of the 
FD table. Note, that as each modification 
is made to the output record, it may over- 
lap part or all of a previous modification 
depending on the starting location specifi- 
cations involved. 
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PICTURE AND USER MODIFICATIONS : After the 
create module moves the FD pattern (s) to 
the output record area, the module moves in 
the picture string from the CREATE control 
card, if the PICTURE parameter has been 
specified. Otherwise, or after the picture 
string has been moved, module IEBCREAT 
determines if a user exit routine is pre- 
sent. If so, it indicates that a user may 
desire to inspect and/or modify the record 
before it is placed on the output device. 
An exit is taken to permit user modifica- 
tion if this is the case. After the user 
routine (if one is used) gives control back 
to the create module, the create module 
checks the return code that has been placed 
in register 6 by the user's routine. If 
the job is not to be terminated at this 
point, the create module places in the out- 
put data set the record that is in the out- 
put area. If termination is to take place, 
an indicating switch (FLUSHSw or FLUSHSW1 
depending on the return code) is set, 
storage areas are released, and control is 
given to the create analysis module, which 
then gives control to the base module. 



Updating the FD Table 



After each record is placed in the output 
data set, certain values in each applicable 
FD table are updated to prepare for the 
next output record that is to be created. 
Multiple references, by the same create 
entry, to the same FD table are indicated 
by the setting of a 'pass* switch (bit one 
of the FDSWTTCH field). If this occurs, 
the FD table is processed (and updated) 
only once. 

For the binary, packed decimal, and 
zoned decimal patterns, the create module 
performs the following actions by using FD 
table values: 

• The cycle count field (FDCYCCNT) value 
is incremented if the cycle value 
(FDCYCLE) is other than zero. 

• The pattern values are then converted 
to a binary equivalent, if not already 
binary, and placed in a work area 
(register 4) . The module then incre- 
ments the binary-equivalent pattern 
value by using the index number 
(FDINDNUM) . 



For a random number format, the random 
generator routine of the create module pro- 
vides another value to be used for the next 
record and places the value in the pattern 
storage area to which the FD table refers. 



For alphabetic or character patterns, 
the generation of the pattern to be placed 
in the output area for the next record 
requires that values of the 'from* address 
in the FD table and the "to* (or output 
work area) address be changed. These 
addresses are used in moving the pattern 
(or a part of it) from the pattern storage 
area to the output record area. In the FD 
table, there are two fields (FDFRINC and 
FDTOINC) that contain the increment values 
used to modify the 'from' and the 'to' 
addresses. These fields initially contain 
a value of zero for the first output rec- 
ord. For subsequent records, the values 
may be incremented by values given in the 
increment restore fields (FDFRINCR and 
FDTOINCR) of the FD table. 

The FD table module established the 
values of the increment- restore fields 
after the specified action had been deter- 
mined. Table 3 lists the values of the 
increment-restore fields for the various 
actions that may be specified. 



Table 



Values of Increment-Restore 
Fields in the FD Table 



r i 
Pattern 


r - i 
FDFRINCR 
('From' Incre- 
ment Restore) 


r i 
FDTOINCR 
('To' Incre- 
ment Restore) 


r i 
Shift 
Left 


1 





Shift 
Right 





1 


Truncate 
Left 


1 


1 


Truncate 
Right 








Roll 


+1 (*) 

-1 





Ripple 


1 





Wave 


1 





Fixed 

L _L 




L J 




L J 


♦This value will alternate between +1 and 
-1 as the roll pattern is developed in 
first one direction and then the other. 

L J 



The incremented pattern value is then 
tested against the range value given in 
the field FDRANGE. If the range value 
has been exceeded, the current pattern 
value in the storage area to which the 
FD table refers is not changed. Other- 
wise, the indexed binary value is 
reconverted to a decimal form if neces- 
sary and placed in the storage area. 



Depending on the action specified in the 
FD table, the create module may vary the 
values of the move length counter field, 
FDMLGTH, and the sequence length counter 
field, FDSLGTH, to prepare for the next 
output record. Table 4 summarizes the 
changes that may occur to values of fields 
in the FD table as the create module 
generates output records. 
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•Table 4. Changes Made to FD Table Values as Create Module Builds Output Records 

Change 



r t t 

Field I Format 



FDCYCCNT 



Numeric 



Increase by 1. When = FDCYCLE value, set to 0. 



FDMLGTH 



Alphabetic 
(Shift or 
Truncate) 



Initially = FDLGTH value. If FDMLGTH > 1, decrease by 1. When 
FDMLGTH < 1, set = FDLGTH value. 



FDFRINC 



Alphabetic 
(Shift or 
Truncate) 



If FDMLGTH > 1, increase by value in FDFRINCR field. When 
FDMLGTH < 1, set = 0. 



FDTOINC 



Alphabetic 
(Shift or 
Truncate) 



If FDMLGTH > 1, increase by value in FDTOINCR field. When 
FDMLGTH < 1, SET = 0. 



FDSLGTH 



Alphabetic 
(Ripple) 



Initially = FDSLGTHR. If FDSLGTH > 1, decrease by 1. When 
FDSLGTH < 1, set = FDSLGTHR value. 



FDFRINC 



Alphabetic 
(Ripple) 



If FDSLGTH > 1, increase by 1. when FDSLGTH < 1, set to 



FDFRINC 



Alphabetic 
(Wave) 



If FDSLGTH > 1, increase by 1. When FDSLGTH < 1, restore to 0. 



FDMLGTH 



Alphabetic 
(Wave) 



When FDSLGTH < 1, restore to FDLGTH value. 



FDFRINC 



Alphabetic 
(Roll) 



Increase by 1 for roll to left. Decrease by 1 for roll to right. 



After all FD tables to which a given 
create entry refer have been updated, the 
create module inspects the NXTCRTE field 
(in the create table) to determine the 
address,, if any, of the next create entry 
to be processed. (When there are no more 
create entries to be processed, the NXTCRTE 
field of the current create entry contains 
zeros.) If there is another to be pro- 
cessed, the create module will process the 
entry in the manner already described. 



If there is a repeat function to per- 
form, the entire list of create entries 
must be processed as many times as neces- 
sary to satisfy the repeat requirement. 
When that is done, the clean-up functions 
of the create module will be performed. If 
there is no REPEAT card function to perform 
for the current set of data generator con- 
trol cards, the field REPEATNO (at COMMON + 
16) contains zeros. 

After the last create entry has been 
processed, the create module will release 
the storage areas that have been obtained 
for create tables, FD address tables, and 
the CREATE card picture string. The module 
then resets switches and communication area 
field values for an initial entry to the 
create analysis module, and returns control 
to the create analysis module. 



THE MESSAGE MODULE (IEEDGMSG) CHART 75 

Message module IEBDGMSG is entered from the 
base module whenever there is an indication 
of a message to be printed, or placed on 
the output device. To indicate the need 
for a message, the other modules of the 
data generator program set a message number 
in the MS field (at COMMON + 406) of the 
communication area. 

This module places four types of mes- 
sages on the output device: heading mes- 
sages, control card images, error messages, 
and error flags (messages) . The messages 
used for headings and errors exist as 121- 
byte entries within the message module. 
The location of each message within the 
module is contained in a 4-byte address 
entry in a message pointer table. 

Before any messages are placed on the 
output device, module IEBDGMSG determines 
if the output data set has been successful- 
ly opened. If it has not been opened, con- 
trol is returned to the base module and the 
job is terminated. If the data set is 
open, the value in the MS field is checked 
to determine the reason for requesting the 
module. 

Initially, the module is requested to 
print a heading message (MS field value = 
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1) . Thereafter, a heading message is 
printed when the module finds an indication 
of either a channel 12 printer carriage 
tape or the correct line count. All head- 
ing messages will begin at position cne on 
the output device. After each heading mes- 
sage printout, the line count value is 
reset to either the user-specified value or 
the default value, and the page number 
value is incremented. Eefore printing a 
heading message, a printer will skip to 
channel one to set up a new page. When any 
other message is to be printed, a printer 
will space one line before printing the 
message. 

If the MS field value is not 1, the 
module determines if the carriage control 
tape indication is 12 and, if the indica- 
tion is not 12, if the line count value has 
reached its maximum value. If either 
situation has occurred, a heading message 
will be printed, the line count will be 
reset, and the page number will be 
incremented 

Otherwise, the module tests the MS field 
to determine if a control card image is to 
be printed from the input buffer. If this 
is the case, the image is printed at posi- 
tion ten on the output device. If a card 
image is not printed, the module tests for 
a regular error message indication from the 
processing modules. These messages have 
message numbers from 2-28. For each mes- 
sage to be printed, the printer is placed 
at position one to receive the message. 

The message module places a flag message 
(consisting of the word ERROR) in the mes- 
sage data set when one of the other modules 
of the data generator program requests an 
error flag. This message begins on the 
line below the corresponding control card 
image and in the column corresponding to 
the card column that is in error. 

After a message has been placed on the 
output device, the message module incre- 
ments the line count value, determines if a 
heading message has just been placed on the 
device, and either continues processing or 
returns control to the base module. 



SERVICE AIDS 

A customer or systems engineer can 
obtain useful information for use in debug- 
ging a (non-executed) run of the data 
generator program by re-running the program 
with a DUMP control card inserted in the 
group of control cards. When the base 
module recognizes a DUMP control card, it 
takes the action described in the micro- 
fiche copy of the base module code. 



The publication IBM System/360 Operating 
System, Programmer's Guide to Debugging , 
Form C28-6670, describes both types of 
dumps that may be obtained when one uses a 
DUMP card. An indicative dump is a limited 
dump that results from an incorrect, or 
from a lack of a proper, SYSABEND DD state- 
ment. For a complete storage dump, a 
correct SYSABEND DD statement to define a 
dump data set must be included in the con- 
trol cards for the program. 

In using the contents of a dump, you 
will find that register 5 contains the 
address of the common communication area 
(common area) . This area contains pointers 
to control blocks and to tables constructed 
by the data generator program; and it con- 
tains parameter values that the modules of 
the program (1) have obtained from control 
cards, (2) have assigned as default values, 
or (3) have arrived at through computation 
and/or conversion. Table 5 indicates the 
contents of the fields corresponding to the 
more frequently used labels in the common 
area. 

Certain debugging information is avail- 
able as the result of processing the con- 
trol card(s) preceding a DUMP control card. 
In the following text, the information 
given for a specific location of the DUMP 
card is in addition to any information 
resulting from processing any control cards 
that may have preceded the specified 
location. 

1. DUMP card preceding a DSD card: 
The common area contains values for 
printer action. 

The open list is initialized. 
The input DCB is open. 
Much of the common area contains 
zeros. 
\ 

2. DUMP card follows a DSD card: 
Addresses of DCBs have been 
determined. 

Work area for output record has been 
established and the area's address is 
located in common area. 

3. DUMP card follows an FD card: 
Storage area dump contains the FD 
table entry relating to that FD card. 
If other FD cards have been processed, 
the corresponding FD table entries are 
also included in the dump. 

4. DUMP card follows a CREATE card: 
Storage area dump contains tables 
created by the corresponding CREATE 
card. An updated copy of any related 
FD tables is also included. The most 
recent create table is contained in 
the dump and the CURCRTE field of the 
common communication area contains the 
address of this table. 
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The following sections contain information that summarizes or further explains materi- 
al appearing in the program listings for the data generator program. This information 
supplements the overall view of the program as supplied by Figure 55. 



Table 5 lists the entries in the Common Communication Area, 
modules of the data generator utility program. 

Table 5. Common Communication Area 



This area is used by all 



| Offset From 








| Start 


Of 








j Common Area 








L _ 


j 


_ 




j 


r v ■ i 


r ■ t 


1 


| Deci- 


Hex. 


Label 


Notes 




| mal 

L J 


j 


— -i 


_ _ _ _ 




r 1 






r 


1 


I o 





COMMON 






I o 





PAGENO 


Number of next page to be printed. 




I 4 


4 


LINECT 


Number of lines to print on a page. 




I & 


8 


LINECTR 


Number of lines already printed on current page. 




| 12 


C 


PARM 


Used during invocation. Also used by Create module to save 
addresses. 


SYNAD | 


1 16 


10 


REPEATNO 


■Quantity* value from REPEAT card. 




| 18 


12 


CREATENC 


•Create* value from REPEAT card. 




j 20 


14 


SYSP 


Data Generator SYSPRINT DCB. 




| 116 


74 


SYSI 


Data Generator SYSIN DCB. 




j 216 


D8 


Q 


Work. Area 




| 216 


D8 


QFILL 








j 223 


DF 


QSIGN 








j 224 


£0 


QFIIX1 


> 


r 




| 231 


E7 


QSIGNl 


' 




j 232 


£8 


COUNTER 


Used in scanning for continuations. 




| 236 


EC 


OPENLIST 


Used during DCB open processing. 




j 236 


EC 


OPTBYTE1 








j 240 


F0 


OPTBYTE2 








j 244 


F4 


EXIST 








| 244 


F4 


INHDR 








j 245 


F5 


INHDR1 








j 248 


F8 


OUTHDR 








| 249 


F9 


OUTHDR1 








j 252 


FC 


INTRL 








j 253 


FD 


INTR11 








| 256 


100 


OUTTRL 








| 257 


101 


OUTTRL1 








| 260 


104 


EXITDCB 








| 261 


105 


EXITDCE1 








j 264 


108 


TOTAL 








j 265 


109 


TOTAL! 








j 268 


10C 


EXLST1 








| 268 


10C 


EDCB1 








j 269 


10D 


EDCB2 








| 272 


110 


EXLST2 








| 272 


110 


EDCB3 








| 273 


111 


EDCB4 








| 276 


114 


EXLST3 








| 276 


114 


EDCB5 








| 277 


115 


EDCB6 


^ 


f 




| 280 


118 


DLRECL 


Default value of record length for DCB opening. 




j 282 


11A 


DBLKSI 


Default value of block size for DCB opening. 




j 284 


lie 


DRECFM 


Default value of record format for DCB opening. 




j 288 


120 


LEFTOVER 






| 292 


124 


OFFSET 






| 296 


128 


LPTR 






j 300 


12C 


DCBPTR 


Address of current DCB. 




j 304 


130 


COMMON 1 






j 304 


130 


SAVEMS 


Save area for message number if more than one message. 




j 306 


132 


CONCODE 


Con< 


Jition code to be returned to caller. . 





(Continued) 
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r . i 
| Offset From 


r 




1 Start 


Of 1 






| Common Area 






l— — 








r^ t ■ i 


r t 


| Deci- 


Hex. 


Label 


Notes 


j mal 

L J 


L J 


l — j 


L _ 


r 1 


r 1 


r 1 


r 


| 308 


134 


OUTREC 


Address of output work area. 


| 312 


138 


CRTABPT 


Address of first create table. 


| 316 


13C 


CURCRTE 


Address of current create entry. 


j 320 


140 


CURCRGM 


Address of current create table. 


1 324 


144 


CURPIC 


Address where next portion of picture is to be placed in picture 
table. 


| 328 


148 


PICCTR 


Counter to keep track of length of picture remaining to be moved. 


j 332 


14C 


EXITTAB 


Address of first exit name table. 


| 336 


150 


EXITGM 


Address of current exit name table. 


| 340 


154 


CUREXIT 


Address of current exit name in exit name table. 


| 344 


158 


DELIM 


Delimiter for SYSIN records. 


j 348 


15C 


RECREM 


Counter for 'Record* quantity. 


| 352 


160 


CURFD 


Address of current FD table (in FD address table) . 


| 356 


164 


CUROUT 


Current location in output record being constructed. 


| 360 


168 


SAVE 14 


Contents of register 14 saved here. 


j 364 


16C 


GETKLIST 


Parameter list for GETMAIN macro- instruction. 


j 364 


16C 


GLENGTH 






| 368 


170 


ADRLIST 






| 372 


174 


IND 






| 372 


174 


GCODE 






| 373 


175 


SPOOL 






| 374 


176 


CCODE 


Y 


| 376 


178 


GCADDR 


Address of last storage obtained by a GETMAIN macro instruction. 


| 380 


17C 


FIRSTGMO 


Address of first output DCB storage area. 


j 384 


180 


CURRGMO 


Address of current output DCB storage area. 


j 388 


184 


1ASTGMC 


Address of last output DCB storage area. 


j 392 


188 


FIRSTGMI 


Address of first input DCB storage area. 


j 396 


18C 


CURRGMI 


Address of current input DCB storage area. 


j 400 


190 


LASTGMI 


Address of last input DCB storage area. 


j 404 


194 


CONCCDE 




| 406 


196 


MS 


Current message number. 


| 408 


198 


INBUFAl 


Starting address of input work area (121 bytes). 


| 408 


198 


INFILL 


(10 Bytes) 


| 418 


1A2 


INBUFA 


Control card is read into this (111- byte) section of INBUFAl. 


j 532 


214 


DDPTR 




j 536 


218 


COMMCN2 




| 536 


218 


SWITCH 


Start of 52-switch area. 


j 536 


218 


FDCSW 


FD-card continuation switch. 


| 537 


219 


FDNAMESW 




| 538 


21A 


FDPCSW 


FD picture-continuation switch. 


| 539 


21B 


FDFMTSW 


FD format switch. ) only one of these 
FD picture switch. j should be on. 


j 540 


21C 


FDPLSW 


| 541 


21D 


RANGE SW 


\ 


j 542 


21E 


FILLSW 


) 


| 543 


21F 


REPSW 


> FD card keyword indicator switches. 


j 544 


220 


INDEXSW 




| 545 


221 


INDNMSW 


; 


| 546 


222 


BQUOTESW 


Binary picture indicator. 


j 547 


223 


PQUOTESW 


Packed decimal picture indicator. 


j 548 


224 


EQUCTESW 


EECDIC (character-string) picture indicator. 


| 549 


225 


FDSW 




| 550 


226 


DSDSW 




| 551 


227 


NOGOSW 


•No- execution' switch. (Indicates syntax checking only.) 


| 552 


228 


CREATESW 


First CREATE-card switch. 


| 553 


229 


DSDCSW 


DSD continuation card switch. 


j 554 


22A 


CRCSW 


CREATE continuation card switch. 


| 555 


22B 


EXITSW 


Indicator that an initial exit-name table exists. 


| 556 


22C 


EODSTOF 


Swit 


ch to stop generation on input end-of-data. 



(Continued) 



170 



r — i 
| Offset From 


r — - 




| Start 


of 






| Common Area 






L— «. 




L ^ 




r^ t i 


r t 


| Deci- 


Hex. 


Label 


Notes 


| mal 

l 4 








r 1 


r ■ 1 


_ 
r 1 


_ _ _ 

r — 


| 557 


2 2D 


DSDNULSW 


/ 


| 558 


22E 


DSDORGSW 


} Not used. 


| 559 


22F 


DSDDDSW 


) 


| 560 


230 


CRTBLK 


Indicator for a blank CREATE card. 


I 561 


231 


NAMECSW 


Name continuation switch. 


| 562 


232 


PICCSW 


CREATE card picture-continuation switch. 


| 563 


233 


BUFPSW 




j 564 


234 


ENDSW 




| 565 


235 


COMCSW 


Comments continue switch. 


| 566 


236 


FLAGSW 




| 567 


237 


PAGESW 




1 5^8 


238 


EPSW 




| 569 


239 


SYSISW 




j 570 


23A 


SYSPSW 




j 571 


23B 


OLDNEWSW 


Input/output data set indicator. 


j 572 


23C 


FLUSHSW 




| 573 


23D 


FLUSHSW1 




j 574 


23E 


DSDOSW 




| 575 


23F 


DSDISW 




j 576 


240 


QUANSW 


CREATE card 'quantity' switch. 


j 577 


241 


PARENSW 


Indicates detection of a left parenthesis. 


j 578 


242 


REPEATSW 


Used to test if a REPEAT card remains to be processed. 


| 579 


243 


SYSINEOD 


Address of end of SYSIN data. 


| 588 


24C 


FDPLGTH 


FD-picture length. 


| 592 


250 


SGCADDR 


Save Area for address of storage obtained by GETMAIN macro 
instruction. 


| 596 


254 


FDPTR 


Address of current FD-table entry. 


| 600 


258 


FDPTR1 


Address of first FD table. 


j 604 


25C 


FDPTR 2 


Address of current FD table. 


| 608 


260 


CONMON3 




| 608 


260 


FDCTR 


Count of number of entries in current FD table. 


| 612 


264 


LREMAIN 


Length of FD picture remaining at end of scanning an FD card. 


j 616 


268 


COMPCTR 




j 620 


26C 


LMOVED 




j 624 


270 


U 


Current random number value. 


| 628 


274 


PICEND 


Location of end of picture in output record. 


| 632 


278 


CURFDGM 


Address of current FD-address table. 


j 636 


27C 


SWTCH 




j 636 


27C 


FIRSTSW 




j 637 


27D 


FRSTSW 




1 638 


27E 


STOPSW 




j 640 


280 


COPYVAL 


Value of COPY parameter from a CREATE card. 


j 644 


284 


COPYFD 


Pointer to FD address used in copying a 'name* group. 


j 648 


288 


COPYFDGM 


Address of FD-address table. 


| 652 


28C 


NAMCTR 


Number of FD addresses to be copied for a 'name' group. 


| 654 


28E 


NAMCTR1 


Counter used in copying a 'name' group* 


j 656 


290 


INRECSZ 


Logical record length of an input record. 


| 658 


292 


OUTRECSZ 


Logical record length of an output record. 


| 660 


294 


INRECFM 


Input record format. 


j 661 


295 


RECOFFST 


Offset to start of data in output record. 


| 662 


296 


OUTRECFM 


Ouput record format. 


| 664 


298 


PICBASE 


Address of start of picture table. 


| 668 


29C 


MESSAGE 
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Table 6 lists the fields of the Data Con- 
trol Block (DCB). The labels, as given in 
this dummy section, may vary in name from 
the levels for the DCB fields as given in 
the System Control Blocks publication. 
However, the offsets from zero correspond 
in meaning with those given in the System 
Control Blocks publication. 



•Table 6. Data Control Block 



OFFSET FROM START OF DCB 



DECIMAL 



HEX 



LABEL 









DCBD 








FILL 


17 


11 


DEVT 


18 


12 


FILL1 


26 


1A 


DSORG1 


26 


1A 


DSORG 


28 


1C 


FILLER 


28 


1C 


IOEAD 


32 


20 


BFTEK 


33 


21 


EODAD 


36 


24 


RECFM 


37 


25 


EXLIST 


40 


28 


DDNAME 


40 


28 


DEBAD 


40 


28 


IFLGS 


48 


30 


GETAD 


48 


30 


OFLGS 


49 


31 


OFLGS1 


50 


32 


MACRF 


52 


34 


FILL 2 


56 


38 


SYNAD 


60 


3C 


CIND 


62 


3E 


BLKSI 


64 


40 


FILL3 


82 


52 


LRECL 


84 


54 


FILL4 


256 


100 


NEXTDCB 


260 


104 


DDNAME1 


268 


10C 


EODSW 


269 


10D 


DCESW1 


270 


10E 


DCBSW2 


271 


10F 

L J 


DCESW3 
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Table 7 lists the defined constants (DCs) that are used by the various modules of the 
data generator program. 



•Table 7. Defined Constants for Modules of the Data Generator Program 



Label 


Base 


Clean-up 


FD Analysis 


FD Table 


Create Analysis 


Create 


'CI 








C'FX' 








'C2 








C'SL' 








'C3 








C'TL' 








'C4 








C'SR' 








'C5 






C'NAME=' 


C'TR' 


C'QUANTITY=' 






'C6 


C'LINECT=' 




C'LENGTH=' 




C'NAME=' 


C (see 'C30 for base) 




'C7 






C'STARTLOC=' 




C PICTURED 






'C8 






C PICTURED 


C'RP' 


C'FILL=' 


C'RA' 




"C9 






C'FORMAT=' 


C'RO' 


C'INPUT=' 


C'ZD' 




'CIO 






C'ACTION=' 


C'WV 


C'EXIT=' 


C'PD' 




'Cll 






C'FILL=' 






C'BI' 




'C12 






C'CYCLE=' 


C'BI' 








'C13 


C'END' 




C'RANGE=' 


C'PD' 








'C14 


C'FD" 




C'CHARACTER=' 


C'AL' 


C'COPY=' 






'C15 


C'CREATE' 




C'SIGN=' 


CAN' 








'C16 


C RE PEAT' 




C'INDEX=' 


C'CO' 


C'P'" 




"C17 


C'DUMP 1 




C 'REPLACED 




C'B'" 






'C18 


C'OUTPUT=(' 














'C19 


C'INPUT=(' 














"C20 








C'RA' 








'C22 








C'ZD' 








"C24 










C'SYSIN 






'C25 


C'QUANTITY=' 








C'$$$E' 






•C26 


C'CREATE=' 














'C28 






C'B'" 










'C29 






C'P"' 








'C30 


C IEB729I PERMANENT 
I/O ERROR' 














'Dl 


H'256' 




H'-64' 


H'-V 


H'-l' 


F'O' 




■D2 


F' 123456' 




H'32767' 


H'256' 


F'O' 


H'-V 




'D3 


F'65535' 




H'256' 


H'2' 


H'256' 


H'8' 




■D4 








H'-2' 


H'l' 


H'4' 




"D5 








H'l' 


H'16' 


F'524291 ' 




'D6 








H'-4' 


F'l' 


H'-4' 




'D7 








H'-3' 




H'256' 




■D8 








H'32767" 








'X2 


X'FOFOFOFV 














'X5 


X'OOOB' 










X'0000" 




•X7 


X'0030' 






X'0000' 








"X8 


X'0000000000000000' 














•X9 


X'0028' 














'X17 








X'OOIA' 








'X18 








X'0024' 








'X19 








X'003F' 








'X23 


X5000' 














'X26 










X'02147483647F' 






•X30 






X'0000" 










'X31 






X'0000000000000000' 


X'0004' 








'X32 






X'000002147483647F' 


X'0003' 








'X36 








X'000002147483647F' 








FOXZEROS 




X'FOFOFOFOFOFOFOFO' 






X'FOFOFOFOFOFOFOFO' 




— 


NO 












X'OO' 


OFF 




X'OO 1 


X'OO' 


X'OO' 


X'OO' 


X'OO' 




ON 




X'FF' 


X'FF' 


X'FF' 


X'FF' 


X'FF' 




ONE 












FL4'0' 




'SIZOOT 


A('DATEND-'DATD) 














"Tl 










F'O' 


F'O' 




"TEMP4 






F'O' 


F'O' 


F'O' 


F'O" 




YES 












X'FF" 
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Table 8 lists the equated symbols (E£Us) that are used by the various modules of the data 
generator program. 



•Table 8. Equated Symbols for Modules of the Data Generator Program 



Label 


Module 


Base 


Clean-up 


FD Analysis 


FD Table 


Create Analysis 


Creafe 


A2J7 

F6D3 

■L 

RET 

■9CE 




'EL01 
1 


1 


F8B4 
1 


1 
'EL01 


1 
'ELOl 


■9D4 
'9D7 
'9EC 
■9EF 
'9E2 


■EL01 
A2B3 




F4G11 




CARDSCAN 


A7A12 


'9E9 
■9FC 
"9FD 
■9F0 
'9F2 


PDDNAMER 
PDDNAMER 




'EL02 


'EL02 


A6C5 


A7A18 


'9F3 
■9F4 
'9F5 
■9F7 


LAB ELI 
SCAN! 






F9E5 


A6A11 
KEYSCAN 
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Tables and Work Areas Used by Modules of Data Generator Program 

Table 9 is a grid indicating the modules that establish, use, and modify the major work 
areas and information taules of the date generator program. Mnemonic names for the 
tables or area are placed in parentheses and correspond with the names given in the 
module cross-references on microfiche listings. 



•Table 9. Data Generator Modules Information Tables and Areas 



Modules .... 


BASE 


FDANL 


FDTAB 


CRANL 


CREAT 


MSG 


CLNUP 




Table/Area 


Module Action Code: B = Module gets storage for, and/or enters data into. 
U = Module uses or modifies the area. 


Common Comm. Area 
(COMMON) 


B 


U 


U 


IJ 


U 


U 


U 




Create Table 
(CRTAB) 








B 










Exit Name Table 
(EXITTAB) 








B 


U 








FD Table 
(FDTBL) 




B 


B 




U 








FD Address Table 
(FDADTAB) 








B 


U 








Input Buffer 
(INBUF) 


B, U 


U 




U 










Input/ Output 
DCB 


B 








U 




U* 




Message Table 
(MESSAGE) 












U 






Message Pointer Table 
(MSGPTR) . 


B 










U 






Create Picture Table 
(CRPICT) 








B 


U 









Closes and releases storoge for: 
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Table 10 contains a summary of the input and output information to be found on microfiche 
listings of the data generator program. 



•Table 10. Module Inputs and Outputs 



INPUTS 



OUTPUTS 



H 



BASE MODULE 



Data Generator Control Cards. 
DD cards for all data sets used. 
Either: Parameter List Address for 

invocation 
or Job Control Language EXEC 

card parameters. 



Reg. 5, pointing to a common communication 

area. 
Message indicator in the common area. 
Reg. 9, pointing to a data generator 

control card operation field in an input 

Buffer — this is for output to an analysis 

module. 



CLEAN-UP MODULE 



Reg. 5 and other pointers (in the coromun- j 

ication area) indicating, respectively, j 

the addresses of the communication area | 
and control tables. 



DCB storage areas and associated buffer 
areas are released to the system. 



MESSAGE MODULE 



Reg. 5, pointing to the communication j 

area. j 

Message number indicator. j 

Actual or default values for linecount j 

and page number. j 

Output DCB name. j 

Indicators for: Output DCB open or not. j 

Channel 9 carriage con- j 

trol. j 

Channel 12 carriage con- j 

trol. 



Heading and paging information. 
Program messages. 
Error return codes. 
Control card images. 



FD ANALYSIS MODULE 



Reg. 9, pointing to a control card image 
in an input buffer. 



One or more FD tables... 520 bytes each. 
FD table entry with some parameter values. 
Temporary storage with a picture or format 
pattern. 



FD TABLE MODULE 



FD table entry. 

Reg. 5, pointing to communication area. 

SGCADDR pointer to picture temporary 

storage . 
Switch indicating picture type, if any. 



| Completed FD table entry... 64 bytes, 



CREATE ANALYSIS MODULE 



Reg. 5, pointing to communication area. 
Reg. 9, pointing to control card image 
in input buffer. 



One or more create tables.. 512 bytes each. 

Create table entry... 2 8 bytes. 

Picture table. . . (L + 6)* bytes. 

FD address table(s) . . . 88 bytes each. 

Exit name table (s) .. .72 bytes each. 



| *Note: See Figure 61 for definition of L. 



CREATE MODULE 



Reg. 5, pointing to communication area. 
Create tables (s). 
Picture table ( s ) . 
FD address table (s) . 
Exit name table (s). 



Records written on an output device as 
specified by DD name on a DSD control 
card. 



176 



•Chart 60. IEBDG Base Module (Part 1 of 3) 



From: 64/J5 | 60 
-A2 



IEBDG 
Al 



( Pre 
V__Ejr 



Program 
ID! 



Bl 



J 




B2 



Register and 
Common Area 
Initialization. 
Assign Defaults 




Yes 



IEBDGMSG 75C2 




Execution 



Options: 
Line Count, 
DD Names, 
Page Number 



E2 



SYS IN 
/ (input) and 
\SYSPRINT (message^ 
\ Data Sets 




DCBEXIT 



61 B4 



Check DCB 

Parameter 

Validity 



F2 



Gl 



Yes 



SVC 6 



IEBDGMSG 75C2 



Place Heading 
on SYSPRINT 



(MSG 24) 

From: 
70/K2 
68/D2 
69/E2 
65/H1 
61/H1 
62/G5 
6 2/H1 
60 
HI. 



Set Condition 
Code 12 
for User 



G2 



SVC 6 



IEBDGMSG 75C2 



Print Message 




<12 



Jl 



SVC 6 



IEBDGMSG 75C2 



Print Control 
Card on 
SYSPRINT 




Load Condition 
Code for User 
in Register 15 



A4 
To Control Card Scan 



'EL01 
K2 



From: 

72/F2 

71-G3 

68/C1 

69/H2 

65/G3 

68/J2 

70/K3 

~60~ 
.G2> 



C Return to ^\ 
Caller J 
(By way of the Supervisor) 



CONTROL CARD SCAN 

For a given control card type, check for the initial card, 
a continuation card, and a comments card. 

The first control card of a set of control cards for this utility 
program must be a DSD card. In the following table, the 
indicated switches are tested, or the indicated tests are 
preformed. The action taken depends on whether a switch 
is "on" (= 1) or "off" (= 0), or whether a test result is "yes" 
or "no". 



Switch or 


Switch or 


"On" or "Yes" 


"Off" or "No" 


Test No. 


Test Name 


Action (*) 


Action 


SW 1 


Comments Continue 


Test SW 2 or go to 


Test SW 2 




SW 


Chart 60, Box HI . 




SW2 


FD Continue SW 


Go to Chart 64, 
Box Al 


Test SW 3 


SW3 


Create Continue 


Go to Chart 68, 


Test Sw 4 




SW 


Box A2 




SW4 


DSD Continue 


Go to Chart 62, 


Test SW 5 




SW 


Box C3 




SW5 


FD Picture 


Go to Chart 64, 


Test SW 6 




Continue SW 


Box Al 




SW6 


Create Picture 


Go to Chart. 68, 


Test for DSD 




Continue SW 


Box A2 


Control Card 


Test 1 


DSD Control 


Go to Chart 62, 


Test for FD 




Card 


Box B3 


Control Card 


Test 2 


FD Control 


Go to Chart 64, 


Test for CREATE 




Card 


Box A 1 . 


Control Card 


Test 3 


CREATE Control 


Go to Chart 68, 


Test for REPEAT 




Card 


Box Al 


Control Card 


Test 4 


REPEAT Control 


Go to Chart 62, 


Test for END 




Card 


Box Bl 


Control Card 


Test 5 


END Control 


Go to Chart 61, 


Test for DUMP 




Card 


Box Bl 


Control Card 


Test 6 


DUMP Control 


Terminate the 


Return to 




Card 


Job 


Supervisor 




f To Point 


Indicated ^ 






V in Above 


Table. J 





(*) Chart Designations: 

68-72 Create Analysis Module 

60-62 Base Module 

64,65 FD Analysis Module 

75 Message Module 
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•Chart 61. IEBDG Base Module (Part 2 of 3) 



END ROUTINE 

ENTERED ON: 

(1) READING END CARD. 

(2) END OF SYSIN 
DATA (/*). 

***** 
♦61 * 
* B1* 



V 
.*. 



*****C1 ******* 



************** 



A2J2 




.*. 






Dl *. 






* * 


YES 


* 


CREATE 


* 




"REPEATS" 



SVC 

*****E1 ********** 
♦IEBDGMSG 75C2* 
*-*-*-*-*-*-*-*-* 



»** ************** 



*-*-*-*-*-*-*- 

* CLOSE DCBS * 

* AND * 

* FREE STORAGE * 
***************** 



SYNAD ROUTINE 

ENTERED ON: 
PERMANENT ERRORS 
ENCOUNTERED 
DURING PROCESSING 
OF SYSIN. 



ERRORS 

*****B2 ********** 

* INITIALI- * 

* ZATION OF * 

* REGISTERS * 



***************** 



SVC 68 
■9D9 

**C2******* 

* ANALYZE * 

* I/O ERRORS.* 
♦PUT INFORMATION* 

* IN BUFFER * 

* * 
*********** 



*****D2 ********** 
♦IEBDGMSG 75C2* 
*-*-*-*-*-*-*-*-* 

* PRINT BUFFER * 

* INFORMATION * 

* * 
***************** 



**E2******* 

* RELEASE ♦ 

MESSAGE 

BUFFER AND 

SAVE AREAS 
» * 

*********** 



USER 

*****F2********** 

* LOAD RETURN * 

* CODE FOR * 

* USER * 



***************** 



ENTRY POINT 



DCBEXIT ROUTINE 



ENTERED FROM 

iYSIN~DcI IDCBROUTl" 
SYSPRINT DCB DCBROUT2 
SYSUT (USER) DCB DCBROUT3 



****B1 ********* 

* ENTRY FROM * 

* OPEN ROUTINE * 

* 4 
*************** 



*****C4********** 

* PLACE DEFAULT * 

* VALUES IN * 

* COMMON AREA. * 

* (SEE NOTE.) * 

* * 
***************** 



DCBEXIT . * . 
*****D3********** Dl *. 

* ASSIGN * .* 

♦DEFAULT VALUES * INVALID .* TEST 

♦TO DCB. IF USER*< *. ACTUAL 

*DCB, SET FLUSH * *. VALUES 



BLKSIZE 
LRECL 

RECFM 



TEST FOR VALIDITY OF: 

BLOCKSIZE. 

LOGICAL RECORD LENGTH. 

FIXED RECORD FORMAT. 

RATIO OF BLOCKSIZE 

TO LOGICAL RECORD LENGTH. 



***************** 



*. 



RETDCB 

****EH ********* 

* RETURN TO 

* OPEN ROUTINE 
* 

*************** 



*****H1******* 

* * 

* TURN OFF 

* ALL 

* SWITCHES 

* * 
************** 



***** 
♦60 ♦ 
♦ HI* 



****K1 ********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 

PROGRAM FINISHED 
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Chart 62. IEBDG Base Module (Part 3 of 3) 



REPEAT CARD SCAN 



DSD CARD SCAN 



♦ 60 * 

* H2* 
***** 



*****B2*** 



.* 


CARD 


*. 


OPERATION 


* 


FORMAT 




*. OK .* 




*. .* 




* YES 


**** 1 


* 


* i 


* CI *->l 


* 


* 1 


**** v 


A3C1K3 


. *. 




CI *. 




* A * 


NO .* 


REQUIRED 
KEYWORD 


r— *. 


f 


PRESENT 



SVC 6 
******* 
♦IEBDGMSG 75C2* 
*-*-*-*-*-*-*-*-* 



***************** 



VALID 
PARAMETER 
. PRESENT . 



* C3 * — i 

* * 
**** [ 



* 3b * 

* * 
**** 



*****D1 ********** 

* * 

* RESOLVE * 

* REPEAT CARD * 

* PARAMETER * 

* * 
***************** 



SVC 6 
♦♦♦**D2********** 
♦IEBDGMSG 75C2* 



***************** 



* TEST ERROR * 

* (NOGO) AND * 

* CONTINUATION * 

* SWITCHES * 
***************** 



*****C3**»* ****** 

* ADVANCE SCAN * SCAN 

* POINTER AND ♦'ERROR 

* TEST FOR *■ 

*• KEYWORDS ♦' 

* * * ****** ******** 



SVC 6 
*****CU** ******** 
•IEBDGMSG 75C2* 



*****D3* ********* 

* SCAN OUT * 
♦DDNAME, (INPUT * 

* OR OUTPUT AS * 

* APPROPRIATE) * 

***************** 



CONVERTB 

*****E1 ********** 

* CONVERT * 
♦PACKED DECIMAL * 
♦PARAMETER VALUE* 

* TO BINARY * 

* * 
***************** 



***** 
*60 ♦ 
* H2* 



SVC 6 
*****F2** ******** 
♦IEBDGMSG 75C2* 
*-*-*-*-*-*-*-*-* 



***************** 



DDNAME 
> 8 
CHAR 



♦ 60 * 

* H2* 
***** 

A 

1SVC 6 
_ ******** 

♦IEBDGMSG 75C2+ 

*-*-*-*-*-*-*-*-* 
>* PRINT * 

* MESSAGE #21 * 



**************** 



H2*<- 
» * 
**** 

SVC 

*****F4 ********** 
♦IEBDGMSG 75C2* 
*-*-*-*-*-*-*-*-* 
>* PRINT * 

* MESSAGE #3 * 

* * 
***************** 





***** 




♦ 60. * 


-*. 


* H2* 


Gl *. 


* * 


.* *. **** 


* 


ANOTHER *. YES * * 


NOTEi 


KEYWORD TO .* >* CI * 


272 BYTES 


. SCAN .* * * 


REQUESTED 


*. .* **** 





SVC 6 
*****C5 ********** 
♦IEBDGMSG 75C2* 



***************** 



*****H1 ********** 

* * 

* CHECK FOR * 

* COMMENTS * 

* CONTINUATION * 

* * 
***************** 



V SVC 4 SVC 6 

**G3*****«* *****Qi|********** 

♦GET STORAGE* *IEBDGMSG 75C2* 

* (CONDITION- * IF NOT *-*-*-*-*-*-*-*-* 
♦ALLY) FOR USER ♦ >* PRINT * 

* DCB * DONE * MESSAGE #10 * 
* DCB * * * 

*********** ***************** 



*****H3 ********** 



***** £5 ********** 

* * 

* SCAN OUT * 

* KEST OF DSD * 

* CARD * 

* * 
***************** 



.* NEED *. 
TO SET * 
COMMENTS 
. SWITCH .1 



*****GS******* 

* 4 

* SET 

* COMMENTS 

* SWITCH 

* 4 
************** 



***** 

♦ 60 * 

* HI* 



♦ COPY DCB. * 
♦INITIALIZE THE ♦ 

♦ OPEN LIST ♦ 

♦ * 
***************** 



A3C77 V SVC 19 
**J3******* 

* OPEN THE * 

* DCB FOR * 
♦INPUT OR OUTPUT* 

* AS NEEDED * 

* . * 
*********** 



**•* 

* * 

* B5 * 

* * 
**** 
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•Chart 63. IEBDG Clean-Up Module, IEEDGCUP 



**** 
* * 

* B4 * 

* * 
**** 



FROM 
CHART 61 
BOX PI 



IEBDGCUP 

**»*B2 ********* 
* 

* ENTRY 
* 

*************** 



END 
CARD . 

r * . 



SVC 20 
**C2******* 

* CLOSE AN * 

* OPEN OUTPUT * 

► DCB IF ONE * 

* EXISTS * 

• * 
*********** 



SVC 10 AND 
V SVC 5 
**D2******* 

* FREE DCB * 

* BUFFERS AND * 

► STORAGE AREA * 

* FOR DCB * 

* * 
*********** 



V 
.*. 

.* MORE "*. 
YES .* OUTPUT DCBS*. 
I *. TO CLOSE 



J SVC 20 AND 

V SVC 10 

**C4******* 

♦CLOSE SYSIN* 

*AND SYSPRINT * 

*DATA SETS. FREE* 

♦BUFFERS AFTER* 

EACH CLOSING* 

*********** 



•L£i0LAJ. £AEi£jO 

STORAGE FOR 
SYSIN AND 
SYSPRINT DATA 
SETS. 



•EL01 

****D4********* 

* 4 

* RETURN * 

* 4 
*************** 

TO END ROUTINE, 
CHART 61 
BOX Fl 



> 

'' SVC 20 
**F2******* 

* CLOSE AN * 
OPEN INPUT * 
DCB IF ONE * 

EXISTS * 

* * 
*********** 



SVC 10 AND 
V SVC 5 
**G2******* 

* FREE DCB * 

* BUFFERS AND * 
* STORAGE AREA * 

* FOR DCB * 

* * 
*********** 



H2 *. 
.* MORE *. 
YES .* INPUT DCBS *. 
-*. TO CLOSE 



**** 

* * 

* B4 * 

* * 
**** 
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•Chart 64. IEBDG FD-Analysis Module, IEEFDANL (Part 1 of 2) 



*»**A1 ********* 
» * 

► ENTRY * 

► 4 
*************** 



F1A2 

*****B1 ********** 

* CHECK PICTURE * 

* AND CONTINUE * 

* SWITCHES. * 

* BRANCH AS * 

* REQUIRED * 
***************** 



SVC 4 

**C1******* 

*GET STORAGE* 

♦FOR (ANOTHER)* 

> 512-BYTE FD * 

* TABLE, IF * 

* NECESSARY * 

*********** 



SWITCHES SET: 



*****C2 ********** 
♦VALCHECK 65B3* 
*-*-*-*-*-*-*-*-* 

* CHECK *< 

* PARAMETER * 

* VALIDITY * 
***************** 



SCANOUT V 

*****£3********** 

* SCAN KEYWORD *INVALID 

* PARAMETER *PARAMETER 

* VALUE. SET * 

* APPROPRIATE *(MSG.3) 

* SWITCH * 
***************** 



V 
.*. 

C3 *. 



YES .* VALIDATE 

* . ROUTINE 

*. NEEDED 



BINARY 
PACKED 
CHARACTER 






OK TO 
SCAN FOR 
. KEYWORD 



**** 
► 4 
* El « 
» 4 

**** 
L 

E 
.* 



*. (MSG.10) 
.* 1 

' NO 



*•** 

* * 

* J3 * 

* * 
**** 



*****Q2 ********** 
♦CONVB 65B5* 
*-*-*-*-*-*-*-*-* 
♦LENGTH, PICTURE*<- 
* RANGE. CYCLE * 
♦STARTLOC.INDEX * 
***************** 



V 
.*. 

D3 *. 
.* ♦. 
YES .♦ CONVERT ♦. 

*. ROUTINE .1 

*. NEEDED .* 
*. .* 



**** 

* * 

* B5 * 

* 4 
**** 



' GET 

STORAGE FOR 

PICTURE 

» 4 

*********** 



F4B5 

*****C5 ********** 

* CHECK PICTURE * 

* TYPE. TURN * 
♦ON APPROPRIATE * 

* SWITCH * 

* * 
***************** 



FUGlt 

*****D5** ******** 
*SCAN CHARACTERS* 

♦ IN PICTURE * 
♦(COLUMNS 4- 71).* 

♦ MOVE CHARACTERS* 

♦ TO STORAGE ♦ 
***************** 



(MSG.5) 



*****E3********** 

♦ PLACE VALUE ♦ 

♦ IN FD TABLE. ♦ 

♦ INCREMENT ♦ 

♦ PARAMETER ♦ 

♦ POINTER * 
***************** 



Fl *. 
.* *. 
.* MUTUALLY *. YES 

. EXCLUSIVE . * 

♦.KEYWORDS .♦ 

♦. .* FORMAT 
♦. .* AND 

* NO PICTURE 



**** 
t 4 

* B3 * 
t 4 

**** 





E5 *. 


BLOCK E5 


.♦INCOR- *. 


USED IF 


.♦RECT LENGTH*. NO 


PICTURE CONTIN- 


♦.PARAMETER OR .* 


UATION CARD 


♦.CARD FOR-.* 


IS ENCOUNTERED 


*. MAT .* 




*. . * 




* YES 




1 **** 




* * 




»•->* GK * 




* * 




**** 




F4H1 




*****F5 ********** 




* * 




* MOVE REST * 




* OF PICTURE TO *<— 




* STORAGE * 



F2A1 
YES 

r 

**** 

* 4 

► El * 
» 4 
**** 



**** 

► 4 

► G3 * 

► 4 
**** 



**** 
t * 
* B5 4 
► * 

**** 



.*. 
G3 *. 
.* *. 
» MORE *. NO 

PARAMETERS . * •, 

TO SCAN .* 



*. 



*. 



***** 

♦ 65 * 

♦ Bl* 



**** 

► * 

» J3 * 



**** 

* * 

* G4 * 

* * 
**** 

1 

*****G4********** 

* * 

* SET FOR * 

* MESSAGE 21 * 

* * 

* * 
***************** 



SVC 5 
**H4******* 

* FREE * 

* STORAGE * 
OBTAINED FOR 

* PICTURE * 

* * 
*********** 



***************** 

I 

**** 

* * 

* G3 * 

* * 
**** 



FROMl 
65/C5 
65/D5 

***** 




* * 
**** 


• 64 * 

* J3* 
* * 

• 


V 
*****J3******* 

* 


I 


* 
->* 

* 


SET 

APPROPRIATE 

MESSAGE 



FROM:**^+ 
65/Dl*64 * 

* JH *_> 



• *** 
F1B411 
»* *****ji|******* 

* * TURN ON * 

* * ENTRY POINT * 
* >* SWITCH. CLEAR 

* ♦ FD SWITCHES * 



****J5** ******* 

* RETURN TO * 

>* IEBDG * 

♦CHART 60 BOX A2^ 

*************** 



***************** 



************** 
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FROM 64/B3 
***** 
♦65 + 
* Bl* 



F5D2 V 

*****B1 ********** 

* CHECK FOR * 

* REQUIRED * 

* PARAMETERS. * 

* DETERMINE * 

* FORMAT TYPE * 
***************** 



CI *. 

.* ERROR *. 

MESSAGE 

REQUIRED 

"*. .*" 



REQUIRED: 



***************** 



***** 
♦64 * 
* J4* 



****E2 ********* 

* RETURN TO * 

* POINT OF * 

* DEPARTURE * 
*************** 



*****G1********** 
*IEBFDTBL 66A1* 
*-*-*-*-*-*-*-•-* 

* COMPLETE FD * 

* TABLE ENTRY * 

* ASSIGNMENTS * 
***************** 



VALIDITY ROUTINE 



****B3********* 

* ENTRY TO * 
♦VALIDITY CHECK * 

* ROUTINE * 
*************** 



* CLEAR * 

* WORK AREA * 

* TO ZERO * 

* * 
***************** 



*****D3**** ****** 

* * 

* MOVE NUMBER * 

* ZONES TO * 

* WORK AREA * 

* * 
***************** 



.* ALL *. 
YES .* ZONES *. 

*. CHECK AGAINST.* 

*. X'F" .* 



*****F3** ******** 

* * 

* SET FOR * 

* MESSAGE * 

* 3 * 

* * 
***************** 



****G3********* 

* RETURN TO * 

* BASE MODULE * 
► AT 60G2 * 

*************** 



CONVERSION ROUTINE 



****B5*** ****** 
► ENTRY TO * 
* CONVERT * 
^ ROUTINE * 

*************** 



MAX. VALUE, 
2,147, 483,647* 



*****C5 ********** 



CHECK FIELD 
LENGTH PUT *£ 
VALUE IN *- 

* PACKED * 

* DECIMAL * 
***************** 



•9£7 l r 

*****E5 ********** 

MAX. VALUE: * CHECK FOR * 

32,737 * MAXIMUM *ERROR 
♦VALUE. CONVERT *- 
* TO BINARY * 



***************** 



****E5*** ****** 
* RETURN TO * 

► POINT OF * 

► DEPARTURE * 
*************** 



***** 
*64 * 
* J3* 



***+Hl ********* 

* RETURN TO * 

* IEBDG * 
♦CHART 60 BOX HI* 

*************** 
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•Chart 66. IEBDG FD-Table Module, IEBFDTBL (Part 1 of 2) 



IEBFDTBL 

****A1********* 

* ENTRY * 

*************** 



BINARY 

OR PACKED 

. DECIMAL . 

♦PICTURE* 



ENTERED FROM 

FD ANALYSIS MODULE 

(CHART 61 BOX HI) 



* CHECK PICTURE * 

* NUMBER * 

* VALIDITY * 
***************** 



TR ACTION 



*****E1********** 

* * 

* CONVERT * 

* PICTURE VALUE *- 

* TO BINARY * 

***************** 



* PACK THE * 
->*DECIMAL NUMBER * 

* IN STORAGE * 

* * 
***************** 



TEST FOR * 

ACTION * 

SPECIFIED * 

* 

*************** 



TL, OR SR 
. ACTION . 



F6A2 

*****C3 ********** 
♦SET FD SWITCH. * 

* SET 'FROM INC * 
♦RESTORE' AND/OR* — 
*'TO INC REST. ' * 

* VALUE (S) TO 1 * 
***************** 



* 
* 

NEITHER 


**** 

as : 

**** V 

A5' '*. 

. ♦ * . 
. * ACTION: 
.ROLL, WAVE 
* . NEITHER . 

" * ' W/iVE 


V(MSG. 
*** 
7 ♦ 
R5 + 


3) 



**B5+****** 

* GET STORAGu 
FOR TRIPLE 

►FIELD LENGTH 

* * 

*********** 



•n 



***** 

*67 * 
* CI* 



F7A1 

*****C4********** 
♦PUT FILL CHAR- ♦ 
*ACTER IN STOR- * 

* AGE. MAX OF *< 

* 256 BYTES PER ♦ 

* MOVE * 
***************** 



FROM *66 * 
67/C2* C5 ♦-> 
67/Dl^ ♦ 
67/Jl^*** 



**** 

*****D3+*^+****** 

* * 

♦ SET FD ♦ 
>♦ SWITCH FOR ♦ 

♦ ACTION ♦ 

* * 
***************** 



**** 
67 ♦ 
E3* 



***** 

♦ 67 ♦ 

♦ CI* 



•9FF 
FIXED . 



F7A7 




. * . 

E4 *. 
* *. 


ROLL 


* 


ACTION * 


. — * 




TYPE 


1 


* 


*. . *" 


**** 




♦WAVE 


* 






OA 


riU * 






RIPPLh 


* 








**** 









SVC 1 
**G1******* 
* * NOT 

GET * SUCCESSFUL 

STORAGE FOR * n 

PICTURE *(MSG 
10)1 



******* 



***** 
*67 * 
* H5* 



NEITHER 



*****£ 3********** 



— *TO FIXED ACTION* 

: 
***************** 



V 
*****F4********** 

♦ MOVE PICTURE * 

♦ TWICE INTO ♦ 

♦ STORAGE AREA * 

♦ (BOX B5> * 

***************** 



* MOVE PICTURE 
» INTO STORAGE 
" AREA (BOX flb) 

**************** 



******** 



***************** 



♦EBCDIC PICTURE. ♦ n 

♦OR NEITHER. ♦ 



**** 
F6K2 

*****j3********** 

* SET 'FROM ♦ 

♦ INC RESTORE' ♦ 

♦ VALUE TO 1. ♦ 

* * 
***************** 



F7C3 V 

*****H4*******++ 

♦ MOVE PICTURE 
RE * THREE TIMES 

♦ INTO STORAGE 

♦ AREA (BOX B5) 



***************** 



rib 



**** 
F7G3 V SVC 5 
**H5******* 

♦ ♦ FREE PIC- ♦ 

♦ +TURE STORAGE * 
♦ >♦ (CHART 61, BOX 

♦ ♦ B3). CLEAR ♦ 
SWITCHES ♦ 



******** 



♦♦♦♦u 5 ********* 

* RETURN TO * 

♦ IEBFDANL ♦ 
♦CHART 65 BOX Gl* 

*************** 



***** 
♦67 * 
* Bl* 
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•Chart 67. IEBDG FD-Tafcle Module, IEEFDTBL (Part 2 of 2) 



FkOM 66/J3 



.* USER *. 
► EBCDIC * 
PICTURE, OR 



***** 
*67 * 
* B3* 



From **** 
66/C3+67 * 

* CI *-> 



FORMAT **** 

* * 
. * >* Gl * 

**** 



F6FU 



2D 



RIPPLE 
OR WAVE 
ACTION 



SVC 
**C2******* 
♦GET STORAGE* 
. NO * FOR LENGTH * 

. * >*VALUE REQUIRED *- 

* TO HOLD ♦ 
* PATTERN * 
*********** 
IF NOT I 
SUCCESSFUL 
(MSG 10) J 



**D1******* 

♦GET STORAGE* 

♦FOR TWICE THE* 

'REQUIRED FIELD 

♦LENGTH VALUE * 

♦ FOR PATTERiM* 

i 



¥ J 

SUCCESSFUL 
(MSG 10) 



NOTE 
♦♦***C3 ********** 

* RESOLVE FIELD * 

* VALUES AND/OR * 
♦SIGNS AS REQD. * 

* (DO NOTHING ♦ 

* FOR RA) * 
***************** 



*****D3******* 

* SET ACTION ♦ 

* SWITCH. CLEAR+ 



F9A1 

*****A4+*** ****** 
* RESOLVE ♦ 
♦STARTING CHAR- ♦ 

— >* ACTER FOR AL, ♦ 
*AN * OR CO FIELD ♦ 

***************** 



.♦START- *. 
► ING CHAR- 
ACTER 
►.SPECIFIED. 



F9A3 

*****A5 ********* 

* USE SPECIFIED 

* CHARACTER TO 
— >*INITIALIZE THE 

* FORMAT FIELD 



*** 



************** 



*****C4********** 

* USE FIRST ♦ 

* CHARACTER OF ♦ 

* FORMAT ♦- 

* SEQUENCE * 

***************** 



MOVEROUT V 

*****]} y***** + ** + * 

* FILL FIELD * 

* WITH ♦ 

* CHARACTERS * 

* FROM * 

* SFQUiinCE * 
**************** v 



*****C5 ********** 

* SET UP FOR * 

* hOVIiiG * 

* CHARACTEsiS * 

* TO FIELD * 

***************** 



.♦BINARY ♦. 

' OR PACKED 

DECIMAL 



♦. AL, AN, OR 



♦****H1********** 

* * 

* RESOLVE * 

* FINAL FIELD ♦ 

* LENGTH * 

* * 
***************** 



*****G2********** 

* GET LENGTH TO ♦ 

* MOVE. OBTAIN ♦ 

* ADDRESSES. *- 

* SET SIGN * 

* * 
***************** 



RlTUkN TO * 
♦ Ir.BFjjANL ♦ 
♦CHART 61 BOX HU* 
*************** 



FlOAt 

*****F3********** 

* GET LENGTH TO * 
1 * MOVE. OBTAIN * 
>* ADDRESSES. * 

* SET SIGN * 

* * 
***************** 



*****G3******* 

♦ SET FORMAT * 

♦ INDICATOR AND+ 
>♦ ACTION ♦ 

t SWITCHES * 



**jl******* 
* GET 

* STORAGE FOR 
FIELD LENGTH 

* VALUE 
* 

*********** 



************** 



*****H3 ********** 
♦MOVE NUMBERS TO* 

* STORAGE FOR * 

* FD PICTURE *- 

* FIELD. SET * 
♦FIELD ADDRESS. * 
***************** 



F7H3 


***,;'l)******* 

* 


»■ CLii/ct * 

* ±-\j 

* switches * 

* * 
************** 




**** 

* * 

* E3 * 

* * 



*****±!;b ********** 

* CLEAR ♦ 

* WORK AREA » 

* TO ZEROS ♦ 

* * 
***************** 



***F3 ********** 
MOVE NUMBER * 
fcONKS FROM ♦ 
STORAGE TO * 
WORK AREA * 
* 
*************** 



****G4********* .* ALJj 

* RETURN TO ♦ YES .* ZO^JiiJ 

* CALLER. * " " ~" 
♦CHART 66 BOX CI* 

*************** 





*. FO .* 




*. . ♦ 


FROfc: 
66/A5 
66/C5 
66/G1 


**** 
*o7 ♦ 

* Hb *-> 

* * 
**** 

*****H5* 

* SET 

* APPR01 

* KESS 


* UO 

(.,SG 3) 

********* 




FOR * 
3 RIATi ♦ 
>AGE ♦ 



NOTE 1: 
FIELD RESOLUTION 
SVC 4 FORMAT | RESOLUTION OF FINAL FIELD 



TO FL PLUS SL IF FL < SL. 



***************** 



****J5********* 

* RETURN TO * 

* IEBFDANL * 
♦CHART 65 BOX Gl* 

*************** 
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****A1********* 
» * 

* ENTRY + 

t> * 

*************** 



->*INITIALIZATION 



***************** 



*69 * 
* C3* 
***** 



A6A1 
CREATE . 



PICTURE 

STRING 

.CONTINUED. 



. * NAME * 

->* . SUBPARAMETER 

♦.CONTINUED.* 



I (MSG 20) 



****C1********* 

* RETURN TO * 

* BASE MODULE * 
♦CHART 60 BOX G2* 

*************** 
TO PRINT MESSAGE 



.* *. YES 

♦.CONTINUATION .♦ 

♦. INDICATED. ♦ 



♦ ♦♦** 
*69 * 

* C5* 



. ♦ FURTHER * 

♦.CONTINUATION 

♦.INDICATED.* 



RETURN 2 

***»D2+* ******* 
* RETURN TO * 
BASE MODULE * 
♦CHART 60 BOX HI* 
*************** 
FOR NEXT CARD 



->* 



*****El ********** 

* DETERMINE ♦ 

* IF THIS IS ♦ 

* FIRST CREATE ♦ 

* CARD IN * 

* DSD GROUP * 
***************** 



A6A11 * SVC 

**pl******* 

♦GET STORAGES 

♦OF 512 BYTES * 

* FOR CREATE 

* TABLE IF * 

* NECESSARY ♦ 

*********** 



**** 



**** 
KEYSCAN 

*****G1 ********** 

* * 

* SCAN CREATE ♦ 

* CARD FOR ♦ 

* NEXT KEYWORD. * 

* * 
***************** 



CREATE V 

*****£2********** 

♦ SET DEFAULT ♦ 

♦ VALUES FOR + 



**** 
'9D1 

YES - 

r 

**** 

* 4 

* D2 ♦ 

* ♦ 
**** 



.♦ THIS A * 

.REPEAT GROUP 

♦.WITH MORE.* 

♦.CARDS. ♦ 



■9CF V SVC 6 
***+*G2** ******** 
♦IEBCREAT 73A1* 
*-*-*-*-*-*-*-*-* 

* WRITE * 

* OUTPUT * 

* RECORDS * 
***************** 



RETURN 
WITH 
ERROR 



.* THIS 


LAST 


♦ . NO 


. ♦ PICTURE ♦ 


NO 


♦.STRING CONT 


. ♦ , 


♦ .SUBPARAMETER 


* 


*. CARD 


♦ I 


♦.CONTINUED.* 


] 


♦ . .♦ 


1 


♦. . ♦ 


1 


♦. .♦ 


V 


♦ . .* 


V 


. ♦ YES 


♦ ♦** 


♦ YES 


**** 






* * 


1 


* * 






* D2 * 




* El ♦ 










* * 






**** 


t 
.♦. 

DU ♦. 
. * *. 
.* STARTLOC * 
*. OR 

*. STRING .♦ 

♦. .♦ 

*. .* 

* START- 

| M 

***** 
*70 * 
* Gl* 


**♦* 
STRING 

n 

♦♦♦♦♦ 

♦ 70 * 

♦ E3* 
♦ ♦ 

* 



FROM KEYWORD 
PROCESSING ON 
CHARTS 69,70, 
71 **** ' 
*68 * 
* F3 ♦-> 



♦ ♦♦♦ 
CARDSCAN 

♦****F3********** 
CARDS* TEST FOR LAST * 
DONE ♦ KEYWORD. * COMMENTS 
r — * TEST FOR * t 

* CONTINUATION * 

I ♦ COMMENTS * I 

V ***************** v 

**** I MORE **** 

♦ ♦ KEYWORDS* ♦ 



SEE NOTE l.J 

*****G5*** ******* 

* GO TO * 

* SCAN A ♦ 

* KEYWORD * 

* * 
***************** 



NOTE 1. 

MICROFICHE LISTING LABEL XXXX AND 
THE OFF-PAGE CONNECTOR ZZ/YY 
HAVE THE APPROPRIATE VALUE TAKEN 
FROM THE TABLE BELOW. 



****J2 ********* 
* RETURN TO * 
>* BASE MODULE * 
♦CHART 60 BOX G2* 



KEYWORD BEIWG 
PROCESSED 


VALUE OF 
XXXX 


VALUE OF 
ZZ/YY 


QUANTITY 

NAME 

PICTURE 

FILL 

DDNAME 

EXIT 


A6B1 
A6C1 
A6D1 
A6E1 
A6F1 
A6G1 


71/Bl 
69/Al 
70/Bl 
71/B3 
69/B1 
71/B5 
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•Chart 69. IEBDG Create Analysis Module, IEBCRANL (Part 2 of 5) 



***** 

♦69 * 
* Al* 



I FROM 
J68/G5 



NAME PROCESSING 



DDNAME PROCESSING 



FROM **** 
68/C4+69 * 
* Bl * 



.♦ ♦ . 

YES .* INNER 1 

* . NAME 

* . LIST . < 



A6C2 V 

*****C1********** 
♦SPSCAN 72B1* 
*-*-*-*-*-*-*-*-* 

* SCAN * 

* NEXT * 

* NAME * 
***************** 



*****Q1********** 

*FDSRCH 72B5* 
.*-*-*-*-*-*-*-*-* 

* SEARCH FD * 

* TABLES FOR * 

* EQUAL NAMES * 
****$***********• 



CONTINU- 
ATION 
.INDICATED. 



*****A2 ********** 
♦SPSCAN 72B1* 
*-*-*-*-*-*-*-*-* 
>* SCAN NAME * 

* PARAMETER * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 



***** 

♦ 68 * 

* F3* 



TO CARD SCAN 



**** 

> * 

► B3 « 
t 4 

**** 



YES .* CONTINU- 

*. ATI ON CARD 

♦.INDICATED. 



FROM 68/G5 

♦ ♦♦♦♦ 

♦ 69 ♦ 

♦ BH* 



A6F1 V 

*****£!) ********** 

♦SPSCAN 72B1 + 
*_*_*_*-*_*_*-*-* 

♦ SCAN OUT ♦ 

♦ DDNAME ♦ 

♦ ♦ 
***************** 



A6C8 

*****C3* ********* 
♦SPSCAN 72Bl*FROM 
*-*-*-*-*-*-*-*- A68/C4 

♦ SCAN NEXT ♦< — t 

♦ NAME IN ♦ 

♦ COPY LIST ♦ 
***************** 

NO * 



*****D3 ********** 
♦FDSRCH 72B5^ 
*-*-*-*-*-*-*-*-* 

♦ SEARCH FD ♦ 

♦ TABLES FOR ♦ 

♦ EQUAL NAME ♦ 
***************** 



*****C4 ********** 

♦ +IF INVALID 

♦ CHECK ♦(MSG 12) 

♦ DDNAME ♦ t 

♦ LENGTH ♦ 

♦ * 1 

***************** V 



* * 




♦ 69 * 




♦ C3+ 




♦ ♦♦♦♦ 




V 


' 9DB . ♦ . 


D4 ♦. 


. ♦ 


.♦ DDNAME 


♦. = SYSIN 



***** 
♦68 ♦ 
♦ F3+ 



TO CARD SCAN 



A6C6 . ♦ . 

Gl ♦. 
.♦ COPY ♦. 
.♦ PARAMETER ♦. 
— >♦ . AFTER 

♦. SECOND .♦ 
♦ . ( .♦ 
♦. .♦ 
♦ YES 



♦***E2 ********* 

♦ RETURN TO * 

->♦ BASE MODULE. ♦ 

♦CHART 6Q BOX HI* 

*************** 


.* ♦. 
YES .* MORE *. 
r — ♦. NAMES IN .♦ 
♦.COPY LIST.+ 

1 *• '* 
V ♦. .♦ 
**** * NO 


FOR NEXT CARD 




♦ B3 ♦ 

* * 






•*** 






■9ED 

*****F3* 

♦ REPEJ 

♦ NAME L 

♦ reoui; 

♦ COPY A 


********* 
VT FD ♦ 
EST AS ♦ 
*ED BY ♦ 
/ALUE ♦ 



*****E4********** 

* * 

* SCAN ALL * 

* INPUT DCBS ♦ 

* FOR EQUAL. ♦ 

* * 
***************** 



NO 

Tmsg" 



*****H1 ********** 
♦SCAN, CONVERT, * 

* AND STORE ♦ 

♦ COPY VALUE. ♦ 

* (USE SPSCAN ♦ 

♦ AND CONVDB) * 
♦♦♦♦♦♦♦♦♦♦******* 



• *** 

♦ * 

♦ G2 ♦ 

♦ ♦ 

♦ ♦♦♦ 

I 

*****G2 ********** 

♦ * 

♦ SET FOR ♦ 
►♦ MESSAGE ♦ 

♦ ♦ 

♦ ♦ 
***************** 



♦♦♦*H2 ********* 

* RETURN TO ♦ 

♦ BASE MODULE ♦ 
♦CHART 60 BOX G2^ 

*************** 



***************** 



V SVC 4 
**G3******* 

♦ GET * 

♦ STORAGE FOR ♦ 

► FD ADDRESS ♦ 

♦ TABLE AS ♦ 

* NEEDED ♦ 
*********** 



**** 

* 4 

* G2 ♦ 

* 4 
*•** 



A6F2 V 

*****F5********** 

♦ STORE INPUT ♦ 

♦ (OR SYSIN) ♦ 
>♦ DCB ADDRESS * 

♦ IN CREATE ♦ 

♦ ENTRY ♦ 
***************** 



NO .♦ SYSIN *. YES 

♦. DELIMITER .♦ , 

*. FOUND .♦ 



NO 


* 


OUTER 


r ♦. 




NAME LIST 


1 


* 


DONE 

♦ . .♦ 

♦. .♦ 


**♦♦ 




♦ YES 


♦ 




1 


Bl ♦ 




1 


♦ 




V 


♦ ♦** 




♦ ♦♦♦♦ 
♦68 * 

♦ F3* 



*****H4 ********** 

• * 

* ASSIGN ♦ 

♦ DEFAULT *- 

* DELIMITER * 

• * 
***************** 



r 



***** 

♦ 68 ♦ 

♦ F3+ 



TO CARD SCAN 



♦ *** 
N * 
► H2 * 
» * 

•••* 
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Chart 70. IEBDG Create Analysis Module, IEBCRANL (Part 3 of 5) 



DM 68/G5 
***** 
♦70 * 



PICTURE PROCESSING 



A6D1 V 

*****£! ********** 

♦SPSCAN 72B1* 

*-*-*-*-*-*-*-*-* 

* SCAN FOR * 

* PICTURE * 

* LENGTH * 
***************** 



-*-*-*-*-*-*-*-* 

* CONVERT * 

* LENGTH TO * 

* BINARY * 
***************** 



SVC t 

**D1******* 

*GET STORAGE* 

* FOR PICTURE * 

► TABLE. PUT 

♦LENGTH VALUE * 

* IN TABLE * 

*********** 



*****B3* ********* 

* STORE START * 
♦LOCATION VALUE * 

* IN CREATE * 

* TABLE ENTRY * 

* * 
***************** 



* B4 * — -J 

**** 
■9E1 V 



*** 




* * 




* YES 


.* 


INVALID 


.M 


*< 




DELIMITER 




*(MSG 


J)* 





♦STRING AREA IN * 

* PICTURE TABLE ♦ 

* TO ZEROS ♦ 

* * 
***************** 



*****CH ********** 

♦ CONVERT * 

♦ STRING VALUES ♦ 

♦ TO BINARY OR ♦ 
♦PACKED DECIMAL ♦ 

♦ AS NECESSARY ♦ 
***************** 



.♦ STRING ♦ 

.CONTINUATION 
* . INDICATED. * 



NOT ♦♦♦♦ 
DONE* ♦ 

► >♦ J3 * 

<MSG>* * 

10 **** 



. ♦ PICTURE *. 
.CONTINUATION . 
♦.INDICATED.* 



NO 



*****gl ********** 

* STORE TABLE * **** 

* ADDR. IN * * * 

* CREATE TABLE. * >* J3 * 

* CHECK * ♦ * 

* DELIMITERS * ♦♦♦♦ 
***************** INVALID 

DELIMITERS 
(MSG 3) 



**** 

♦ 70 ♦ 
FROM ♦ E3 
68/Df* ♦ 

**** 
A6D6 

*****E3********** 

♦ * 
♦DETERMINE TYPE ♦ 

♦ OF STRING. ♦ 

♦ PROCESS ♦ 

♦ ACCORDINGLY * 
***************** 



DECIMAL .* 



*****Q4********** 

♦ * 

♦ STORE * 

♦ STRING VALUE ♦ 

♦ IN PICTURE ♦ 

♦ TABLE ♦ 
***************** 



***** 
*68 * 
♦ F3* 



TO CARD SCAN ♦ 



*****C5********** 

* * 

* MOVE PICTURE * 
-♦ STRING FROM * 

* CARD TO ♦ 

* PICTURE TABLE ♦ 
***************** 

**** 

* * 

* K2 *<—, 

* * 

**** 

D73 [ 
*****n5 ******* 



* SET 

->♦ CONTINUATION 

* SWITCH 

* ♦ 
************** 



♦ YES .♦ INVALID 

♦ < ♦. DELIMITERS 

*(MSG 3)*. 



TO CARD SCAN 



* Gl ' 

* ♦ 
**** 

A6D4 

*****QX* ********* 

♦SPSCAN 72B1 + 

*-*-*-*_*-*-*-*-* 

* SCAN START ♦ 

* LOCATION * 

* VALUE ♦ 
***************** 



*****H1 ********** 
♦CONVDB 72B3^ 
*-*-*-*-+-*-*-*- + 
♦CONVERT START- * 
♦LOCATION VALUE * 
* TO BINARY * 
***************** 



. * ERROR ♦. 
IN CARD * 

PARAMETER 



, * >* Bt * 



*****H2 ********** 

♦ * 

♦ SET FOR ♦ 

♦ APPROPRIATE ♦ 

♦ MESSAGE ♦ 

♦ (3, 8, OR 21) ♦ 
***************** 



A6D71 V 

*****G5*** ******* 

* MOVE ALL OF * 
♦PICTURE STRING * 

* FROM CARD ♦ 

♦ TO PICTURE * 

♦ TABLE ♦ 
***************** 



**** 

* * 

* J3 ♦-> 

* 4 
**** 

*****J3********** 



***************** 



r 

**** 



•»**K2 ********* 

* RETURN TO * 

* BASE MODULE * 
♦CHART 60 BOX HI* 

*************** 
FOR NEXT CARD 



****K3* ******** 

* RETURN TO * 

♦ BASE MODULE + 
♦CHART 60 BOX G3* 

*************** 
TO PRINT MESSAGE 



Data Set Utility Programs: IEBDG 187 



•Chart 71. IEBDG Create Analysis Module, IEBCRANL (Part 4 of 5) 



QUANTITY PROCESSING 



FILL PROCESSING 



EXIT PROCESSING 



FROM 68 /G5 
***** 
♦71 * 
* Bl* 



***** 
*71 * 

* B3* 



A6B1 V 

*****B1********** 
♦SPSCAN 72B1* 
*-*-*-*-*-*-*-*-* 

* SCAN * 

* QUANTITY * 

* PARAMETER * 
***************** 



*****C1********** 
♦CONVDB 72B3* 
*-•-*-*-*-*-*-*-* 
* CONVERT * 
♦QUANTITY VALUE * 



*****Q1********** 

* STORE * 

* CONVERTED * 

* VALUE IN * 
♦CREATE ENTRY OF* 

* CREATE TABLE * 
**•***********♦•♦ 



.* HEX *. 

.FILL CHARAC-*. 

TER 



A6G1 

*****B5*** ******* 
♦SPSCAN 72B1* 
*-*-*-*-*-*-*-♦-* 

* SCAN USER'S * 

* EXIT ROUTINE * 

* NAME ♦ 
***************** 





.♦ VALID * 








* VALID 


* 




.♦ EBCDIC 


* 


NO 


* 


HEX 




* 


CHARACTERS 




* . * 




CHARACTER 




♦ . 


* 












♦. .♦ 




1 (MSG) 




*. 


* 




♦ . .♦ 




V 3 




*. .* 






* YES 




***♦ 




* YI 


:s 



(MSG 12)1 

**** 



A6E35 

*****D2********** 

* PLACE * 

* CHARACTERS * 

* IN CREATE * 

* ENTRY * 

* * 
***************** 



A6E53 

*****D3********** 

* PLACE * 

* CHARACTER * 

* IN CREATE * 

* ENTRY * 

* * 
***************** 



E2 *. 

.* CARD 
► FORMAT 
VALID 



* IE 

— ->l 

*♦♦** 

• 68 * 

* F3^ 



TO CARD SCAN 



*****F3********** 

* SET * 

* APPROPRIATE * 

* MESSAGE * 



**D5******* 
♦GET STORAGE* 
* FOR EXIT * 

TABLE IF 

» NECESSARY * 

*(72 BYTES) * 

*********** 



*****E5 ********** 

* 4 

* ADJUST EXIT * 

* NAME TABLE * 

* POINTERS * 

* 4 
***************** 



A6Gi 

*****5'5 ********** 

* PLACE USER'S * 

* EXIT NAME IN * 

* EXIT TABLE * 



***************** 



*+**G3 ********* 

* RETURN * 

* BASE MODULE * 
♦CHART 60 BOX G2* 

*♦♦♦♦♦********♦ 

TO PRINT MESSAGE 



***************** 



**G5******* 

♦LOAD USER'S* 

*EXIT ROUTINE * 

* AND STORE 

* ADDR. IN * 

♦CREATE ENT.* 

****♦****♦♦ 



♦ ♦♦♦♦ 

♦ 68 * 

♦ F3 + 



TO CARD SCAN 
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•Chart 72. IEBDG Create Analysis Module, IEBCRANL (Part 5 of 5) 



***** 

♦72 * 
* Bl* 



***** 
*72 * 
* B3* 



***** 
*72 * 
* B5* 



HOTEs 16 BYTES 
PERMITS DECIMAL 
VALUE 2,147,1(83,647. 



* CHECK FOR * 

* PARAMETER * 

* COLUMN VALUE * 

* * 
***************** 



INVALID 

COLUMN 

VALUE 



YES 

* 

(MSG 21) 



* PARAMETER * 

LENGTH > 16 
*. BYTES .* 



*****C3********** 

* * 

* TEST ZONES * 

* OF CHARACTER * 
*TO BE CONVERTED* 

* * 
***************** 



•***F1********* 



*************** 



*****£2********** 

* * 

* SET * 
>* APPROPRIATE +< 

* MESSAGE * 

* * 
***************** 



****F2********* 

* RETURN TO * 

* BASE MODULE * 
♦CHART 60 BOX G2* 

*************** 
TO PRINT MESSAGE 



•*** 



* PUT PACKED * 

* DECIMAL VALUE * 

* IN STORAGE * 

* * 
***************** 



* KOVE CREATE * 

* iSIAME TO * 

* STORAGE * 

* * 
***************** 



A6C93 V 

*****C5 ********** 

* COMPARE * 

* FD TABLiS * 

* NAhES WITH * 

* NAME ON * 

* CREATE CARD * 
***************** 



**** 
t * N 
» E2 *< 



**** 



**E5* 



packed decimal 
"picture 



* * * GET STORAGE * 

* E2 *< *FOR FD ADDRESS * 

* * * TABLE IF * 
**** * REQUIRED * 

NOT SUCCESSFUL *********** 
(MSG 10) 



* STORE FD * 

* TABLE ADDRESS * 

* IN FD ADDRESS * 

* TABLE * 
***************** 



G3 *. 
**** ,* 

* * YES .* DECIMAL 

* E2 *< *. VALUE TO 

* * *. LARGE 
**** 

(MSG 6) 



.* 
.* 
NO 



****G5*** ****** 



*************** 



♦CONVERT PACKED * 

* DECIMAL TO * 

* BINARY VALUE * 

* * 
***************** 



****J3********* 

* RETURN TO * 

♦ CALLER * 
*************** 
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•Chart 73. IEBDG Create Module, IEBCREAT (Part 1 of 2) 



***** 

*73 * 
* Al* 



IEBCREAT 






****A1********* 




* * 




* ENTRY * 




* * 




******* 


******** 




**** 






*73 * 






FKOM * Bl *-> 






71/B3* * 1 




**** V 




A7A1 .*. 




TEST Bl *. 




NOGOSW .* *. 




SWITCH.* CONTINUE *. NO 








*. .* 


V 


♦ . .* 


***** 


*. . * 


*7U * 


* YES 


* B4* 


**** 




* * 


* * 




* 


* CI *-> 






* * 






**** 






A7A11 V 




*****C1 ********** 




♦INITIALIZE FOR * 




* FIRST ENTRY * 




* THROUGH * 




* MODI 


JLE * 





***************** 



*****D1********** 

* DETERMINE * 

* OUTPUT AND * 

* INPUT RECORD * 
♦CHARACTERISTICS* 

* * 
***************** 



■ 9F9 

*****E1 ********** 

* INITIALIZE * 
♦RECORD COUNTER * 

* WITH QUANTITY * 

* VALUE, OR SET * 

* STOP SWITCH * 
***************** 



A7A18 

*****B3****+****^ 
♦INITIALIZE FOR ♦ 

♦ NEXT FD ADDR. * 

♦ FOR THIS ENTRY, ♦ 

♦ IF THERE ARE * 

♦ MORE * 
***************** 



NO .* FIELD 

*. TOO 

(MSG 16)*. LARGE 



' 9EF 

*****D3* ********* 

* MOVE FD * 

* PATTERN TO * 

* OUTPUT RECORD * 



***************** 



.* INPUT 

.* RECORD > 

OUTPUT 

*. RECORD 



* F2 *-> 



**** 
ERROR1 

*****F2 ******* 

* SET MESSAGE* 
YES * PRINT * 

♦ >♦ SWITCH 

(MSG 17) * (EPSW) * 

♦ ♦ 
************** 



*****G1 ********** 

* PUT FILL ♦ 

* CHARACTER ♦ 

* IN OUTPUT * 

* RECORD * 

* * 
***************** 



E3 *. 

.* MORE *. 
.FD ADDRESSES*. 
. TO PROCESS . 



**** 

* * 

* B5 * 

* * 
**** 



t***£5 *********** 
WRITE 

OUTPUT * 

RECORD. 
* ( PUT ) * 

************* 



.* STOP *. 
. +GEMERATION 
SWITCH 



* ***** 

* Gl * * 

► ♦ Dl( * — •, 
***** * ( 

**** V TES1 

A7A55 .*. RECK 

DH *. 

.* LAST *. 

NO .*RECORD FOR *. 

— *. THIS CREATE . 

♦ . ENTRY . ♦ 

YES 

**** 
A7A56 



***** 
*7U * 
* Al* 



MORE 
CREATE 
ENTRIES 



— V 
***** 
*74 * 



*****FH ********** 

♦ PROCESS NEXT * 

* CREATE * 
♦ENTRY IN TABLE * 



***************** 



. * CREATE 
— >* . PICTURE 
*. PRESENT 



INPUT 

DCB 

PRESENT 



>* B3 * 



**** (MSG 10) *. 



PICTURE 

TOO 

LARGE 



A7A13 " 

******J1 *********** 

GET INPUT FROM EITHER 
* RECORD FOR ♦ A SYSIN OR 
OUTPUT A NON-SYSIN 
* RECORD * DATA SET. 
BUFFER 
************* 



*****J3**** ****** 



***************** 



A7A2 

*****G5 ********** 

♦ CALL USjSR * 

♦ ROUTINE TO * 
♦PROCESS OUTPUT ♦ 

♦ RECORD ♦ 

♦ ♦ 
***************** 



*****H5 ********** 

* ANALYZE * 

* USER RETURN * 

* CODE. BRANCH * 

* ACCORDINGLY. * 

* ♦ 
***************** 



PUT OUT RECORD 
SKIP RECORD 
DSD END 



73/Bb 
73/B3 
74/B4 
74/B4 
73/F2 



TEST .* *. 

EODSTOP* END OF *. YES 

*. INPUT .* 1 

*. DATA .♦ 



I 



**** 

* * 

* DU * 

* * 
**** 



. * USER 
EXIT 
*. ROUTINE 



**** 

* * 

* B5 * 

* * 
**** 



**** 

* * 
->* G5 * 

* * 
**** 
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•Chart 74. IEBDG Create Module, IEBCREAT (Part 2 of 2) 



***** 

*7U * 
* Al* 



FROM 73/C5 



A7J1 

*****A1********** 

* PROCESS * 

* NEXT * 
♦UNPROCESSED FD * 

* NAME * 

* * 
***************** 



*****C1********** 



VALUES 
* 
**************** 



A7R1 

*****D1********** 

* DETERMINE * 

* FORMAT. IF * 

* DECIMAL, * 

* CONVERT TO * 

* BINARY * 
***************** 



A7R3 

*****E1******* 

* ADJUST FOR * 

* INDEX AND * 

* RANGE 

* VALUES * 

* * 
************** 



J SEE NOTE 
A7R4 

*****F1 ********** 

* * 

* RECONVERT * 
*TO DECIMAL FORM* 

* AS REQUIRED * 

* * 
***************** 

**** 

* * 

* Gl *-> 

* * 

**** 



***************** 



**** 

* * 

* Gl * 
► * 

**** 



SEE I 
NOTE 1 V 

*****E2 ********** 

* PROCESS ANY * 

* NON NUMERIC * 

* FORMAT EXCEPT * 

* RANDOM * 

* * 
***************** 



FROM 73/E4 



* REPEAT * 

FUNCTION TO 
*. FULFILL .* 



***** 
*73 * 
* Bl* 



A7A6 V 

*****BU ********** 

* FLUSH OUT * 

* SYSIN * 
>* DCB IF * 

* ANY EXISTS * 



***************** 



A7A7 V SVC 

**C1******* 

* FREE * 

* PICTURE 
* TABLE 

* STORAGE 

* AREA * 
*********** 



***+*B5 ********** 

* REINITIALIZE * 

* FOR CREATE * 

* ANALYSIS * 

* MODULE * 

* * 
***************** 



V 
****C5********* 

* RETURN TO * 

* IEBCRANL * 
♦CHART 68 BOX G2* 

*************** 
TO READ NEXT 
CARD 



NOTE 2: 

PROCESSING IN BLOCK 
Fl IS EXPANDED 
BELOW. 



ANY 
MORE FD 
TABLES 



A7RU 
YES . 



***** 
*73 * 
* CU* 



.♦BINARY * 
» FORMAT 
REQUIRED 



**D1******* 
C * 

FREE 
FD ADDRESS 
TABLE(S) 
» * 

*********** 



*****E1 ********** 

* * 

* DELETE USER * 

* EXIT ROUTINE * 

* FROM STORAGE * 

* * 
***************** 



' 9CF V SVC 5 

♦*F4******* 

♦ FREE ♦ 

♦CREATE TABLE ♦ 



********* 



***♦ 

* * 

* B5 * 

* * 
***♦ 



*****H2 ********** 

♦ PUT BINARY * 

♦ VALUE IN * 

♦ STORAGE ♦ 

♦ AREA Q ♦ 

♦ ♦ 
***************** 



FORMAT 


PROCESS LABEL 


SHIFT OR 


1 A7R8 


TRUNCATE 


1 


RIPPLE 


1 ABCD1 


WAVE 


ABCD5 


ROLL 


ABCD2 



*****H3 ********** 

* CONVERT TO * 
♦PACKED DECIMAL ♦ 
+ IN REGISTER * 

* * 

* * 
***************** 



.♦PACKED ♦ 
DECIMAL 
FORMAT 

.REQUIRED 



*****JH ********** 

* UNPACK TO * 
♦ZONED DECIMAL. * 

>♦ PLACE IN FD ♦ 

* FIELD ADDRESS ♦ 

* ♦ 
***************** 



A7R5 

*****K3 *♦♦♦♦♦*+♦♦ 

* MOVE VALUE * 

* FROM Q AREA * 

* TO FD FIELD *- 

* AREA * 

* * 
***************** 



-4 
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•Chart 75. IEBDG Message Module, IEBEGMSG 



ENTERED FROM IEBDG 
TO PUT OUT HEADINGS, 
CONTROL CARD IMAGES, 
ERROR MESSAGES, AND 
ERROR FLAGS. 



****C1********* 
* RETURN TO * 
► IEBDG * 
l * 

*************** 



IEBDGMSG 

****B2 ********* 

* * 

* ENTRY * 

* * 
*************** 



.*. MSG07 

C2 *. *****C3********** 

.* IS *. TEST * * 

.* SYSPRINT *. DCBOFLGS* INCREMENT * 

.(OUTPUT) DATA.M4TH BIT)* PAGE NUMBER * 

*.SET OPEN .* * COUNTER * 



***************** 



*****D3 ******** 



NOTE 1: IF NOT 
CHANNEL 12 AND 
LINECOUNT NOT 
MAX'. SKIP NEXT 
BLOCK (F2). 



TEST .* IS *. 


(MSG 1) * 


* 




FLAGSW .* HEADING *. YES * INCREMENT * 




(2ND BIT)*. MESSAGE .* 


, *COUNTERS. TEST * 




♦.INDICATED.* 


* FLAG SWITCHES * 




*. .* 


I * * 




*. .* 


V ***************** 




* NO 


**** 






***• 




* * 






* * 




* F2 * 






* E2 *-> 




* * 






* * 




**** 






**** 




V 




V 


. *. 




*****£2 ********** 


E3 *. 




* CHECK FOR * 


SEE . * * . 


SEE **** 


+ CHANNEL 12 * 


NOTE 2:.* WHERE *. NOTE * 


* AND LINECOUNT * 


r — *. TO GO .*- 


>* G2 


* MAXIMUM * 


| *. .♦ 


* 


* (NOTE 1) * 


1 *■ •* 


**** 


***************** 


V *. .* 








**** * SEE 




**** 




* * 


NOTE t 




* * 




* E2 * 






* F2 *-> 




* * 






* * 




**** 






**** 










MSG03 V 


•EL01 






*****F2** ******** 


V 




* RESET LINE * 


****F3********* 




* COUNTER. GET * 


* RETURN TO * 




* HEADING ADDR. * 


* IEBDG * 




* * 


* • 




* * 


*************** 




***************** 






**** 








* * 








* G2 *-> 








* * 








**** 








MSG02 V 






*****G2 ********** 


IS THERE A 


NOTE 2 


* CHECK FOR * 


CONTROL CARD 




* CONTROL CARD * 


IMAGE TO BE 




* IMAC 


3E, * 


PRINTED. 







ERROR FLAG MUST BE 
TURNED OFF. 
GO TEST FOR A 
CHANNEL 12 INDICATION. 

HEADING MESSAGE HAS 
BEEN PUT ON SYSPRINT. 
GO TO TEST FOR CONTROL 
CARD IMAGE. 



*****H2 ********** 

* GET APPRO- * 

* PRIATE * 

* MESSAGE * 

* ADDRESS * 

* • 
***************** 



HEADING SWITCH IS 
OFF AND HEADING 
MESSAGE IS INDICATED. 



MSG06 V PUT 

******J2 *********** 

WRITE OUT 

♦MESSAGE, USING * 

SYSPRINT 

* AND DCB * 

ADDR 

************* 



USES 

MOVE 

MODE OF PUT 

MACRO 

INSTRUCTION 



**** 

* * 

* C3 * 

* * 
**** 
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Independent Utility Programs 



Independent utility programs are executed 
outside and in support of IBM System/360 
Operating System. They are: 

• IBCDASDI, which initializes a direct 
access volume and obtains alternate 
tracks on initialized disk storage. 

• IBCDMPRS (dump-restore) ., which dumps 
and restores the data contents of a 
direct access volume. 

• IBCRCVJRP (recover-replace) , which reco- 
vers data from a track on direct access 
storage, replaces defective records 
with data supplied by the user, and 
writes the composite data on an opera- 
tive track of the original volume. 

Independent utilities are discussed in 
four parts: 

• Supervisory Routines of the Independent 
Utilities 



at location CLRSCAN. If an error is 
detected in the coded information, an error 
message is printed or displayed and the 
WAIT state is entered with E's displayed on 
the console lights. 



DATA INPUT ROUTINE 

The entry point to this routine is SYSIN. 
Linkage to the routine is by a BAL LINK15, 
SYSIN. Register GR2 contains the address 
of the calling routine's buffer. This sub- 
routine stores the buffer address in the 
channel command word SYICCW, sets a read 
command and links to subroutine STAR- 
TIC via a BAL LINK9, STARTIO. Reading is 
then performed by the defined input device. 
When control is returned to this routine, 
it in turn returns control to the calling 
routine via a BR LINK15. 



CONTROL STATEMENT ANALYSIS 



• IBCDASDI 

• IBCDMPRS 

• IBCRCVRP 



Supervisory Routines of the 
Independent Utilities 

The independent utility programs contain 
copies of supervisory routines to check the 
input device, read control statements, ana- 
lyze control statements, check volume 
labels, print diagnostic messages, type 
diagnostic messages to the operator, con- 
trol I/O, and analyze I/O interruptions. 



CHECKING THE INPUT DEVICE 

The entry point to this routine is CKINPUT. 
The routine is entered immediately after 
IBCDASDI, IBCDMPRS, or IBCRCVRP is loaded. 
The program assumes a WAIT state (by means 
of LPSW) until the input device is defined 
by the operator. The operator then enters 
a code by means of typewriter or console. 
This routine then checks the code to verify 
that the input device is 1442, 1402, 2400, 
or 2540 (or 1052 for IBCRCVRP) and that the 
channel number is not greater than six. If 
these conditions are satisfied, the appro- 
priate UCB is selected and control is given 
to the control statement analysis routine 



The entry point to this routine is CLRSCAN. 
Housekeeping functions are first performed 
on program switches and buffer areas 
required by the routine. This routine then 
links to the control statement scan routine 
at RDCARD. RDCARD returns a pointer to a 
field and the length of the field in regis- 
ters SCANADR and LENGTH, respectively, and 
an indication of the field type in location 
SWITCHRD. SWITCHRD is a one-byte switch 
with the following settings: 



Bit Value 



Meaning 






1 


control statement error 


1 


1 


bypass 


3 


1 


first control statement has 
been read 


4 


1 


operator found 


5 


1 


keyword found 


6 


1 


parameter found 



Validity checks are then performed on 
the scanned data. If an error is detected 
in the input data, an attempt is made to 
print a message on the defined message out- 
put device. If the message output device 
is not defined, an attempt is made to issue 
the message using the Write to Operator 
routine. If neither device is defined, the 
WAIT state is entered. If the message is 
successfully issued, the WAIT state is 
entered, and the program must be rein- 
itiated and the corrected statement 
submitted. 
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Following completion of control state- 
ment analysis, control is given to the 
appropriate routine in IECDASDI, IECEMPRS, 
or IBCRCVRP. 



to routine STARTIO. Upon regaining con- 
trol, this routine returns to the calling 
routine. 



VOLUME LABEL CHECKING 

The IBCDASDI program compares the volume 
serial number of the object volume to that 
specified by the VOLID parameter, if both 
numbers are present. If the VOLID parame- 
ter specifies SCRATCH, no comparison 
occurs. If a serial number is specified, 
and it is not equal to that in the volume 
label, or if the volume label is not pre- 
sent, this routine causes an appropriate 
message to be printed and terminates the 
program. 



The IBCDMPRS program compares the volume 
serial number of the TO volume to that spe- 
cified by the VOLID parameter, if both num- 
bers are present. If the TO device is 
tape, and there is no volume label present, 
there must be a tape mark at load point, or 
SCRATCH must be specified, in order for the 
program to continue. If the TO device is 
tape and a volume label is present and 
VOLID does not specify SCRATCH, the volume 
serial number in the label must equal that 
specified by VOLID in order for the program 
to 'continue. If the TO device is direct 
access storage, VOLID must be specified and 
an equal comparison of serial numbers must 
occur in order for the program to continue. 



The IBCRCVRP program compares the serial 
number of the direct access volume to that 
specified by the VCLID parameter. If there 
is no volume label, or if the serial num- 
bers are not equal, a message is written 
and the request is aborted. 



Entry point to the volume label checking 
routine in all three of the independent 
utility programs is at location CKVOLLBL. 



WRITE TO OPERATOR ROUTINE 

The entry point to this routine is OPPRNT. 
This routine writes messages which need to 
be brought to the immediate attention of 
the operator. The message is given on the 
console typewriter if one is available. 



I/O CONTROL ROUTINE 

This routine controls every I/O operation 
performed by the independent utility pro- 
grams. It is entered at STARTIO, at which 
time register UCBREG contains the address 
of the appropriate UCB, and register CSR3 
contains the address of the CCW to be 
executed. The channel-unit number is 
loaded into register CSR4. This routine 
stores the CCW address in the CAW and 
issues the SIO instruction. If the unit is 
unavailable, the WAIT state is entered and 
the program is terminated. If the unit is 
busy, the SIO is issued until the command 
is accepted, at which time the TIO instruc- 
tion is issued repeatedly until the unit is 
not busy. At this time control is given to 
CKCSW, the entry point to the I/O interrup- 
tion analysis routine. The IBCDMPRS pro- 
gram returns control to the calling rou- 
tine, however, to continue processing as 
soon as the I/O is started. 

UNIT CONTROL BLOCKS : The independent uti- 
lity programs each contain one unit control 
block (UCB) for each device in use. Figure 
62 lists the UCBs and their uses. UCBs for 
the independent utilities have the follow- 
ing format: 

Byte Function 

00 unit reference number 

01 used only by IECRCVRP; set to X"FF f 
if the UCB is for a tape drive, set 
to zero when label is checked 



02-03 



channel-unit 



MESSAGE OUTPUT ROUTINE 

The entry point to this routine is SYSOUT. 
This routine writes messages using the mes- 
sage output device as defined by the MSG 
control statement. The address of the 
fixed-length message to be printed is 
passed to this routine in register GR2. 
The appropriate CCW is then constructed, 
and its address is passed in register GR2 



04 CAW protect 

05-07 CAW 

08-15 interruption PSW 

16-23 interruption CSW 

24-31 sense bytes 
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r ■ — r 

UCB Label 



Use in IBCDASDI 



Use in IBCDMPRS 



Use in IBCRCVRP 



UCBTO 



•TO' device 



'TO* device 3 - 



•TO* device* 



UCBFRM 



unused 



•FROM' device* 



'FROM* device 1 



UCBSYI 



control statement input 
device 



control statement input 
device 



control statement input 
device 



UCBSYO 



message output device 



message output device 



message output device 



UCBOPR 



operator message device 



operator message device 



operator message device 



UCBLIST 



unused 



unused 



record data listing 
device 



UCBSERT 



|__ k 

a-'TO* and 
dump from 
refers to 
refers to 



unused 



unused 



•DATA* replace state- 
ments input device 
(REPLACE only) 



•FROM* are relative to the operation being performed by the programs. For a 
2311 disk storage to tape, for example, "TO* refers to tape and 'FROM' 
2311; whereas for the companion restore, "TO' refers to 2311 and 'FROM" 
tape. A parallel situation exists for recovering and replacing. 



Figure 62. The Use of UCBs in the Independent Utilities 



I/O INTERRUPTION ANALYSIS 

All I/O interruptions cause control to be 
given to the I/O interruption analysis rou- 
tine, whose entry point is CKCSW. Register 
UGBREG contains the address of the applic- 
able UCE. This routine checks the nature 
of the I/O interruption: 

1. Error: control is given to IOERR. 

2. Attention: control is given to ATTN. 

3. Busy: the SIO is reissued. 

4. Device end: control is given to 
IORTRN. 

5. Unit end: the SIO is reissued. 

6. Channel end: the TIO is reissued for 
device end. 



IOERR : The CSW, PSW, and CAW are saved, 
and control is given to SENCHK (in case of 
a unit check) or TYPECHK (otherwise) . 

ATTN : The request is honored. 

IORTRN : If a surface check is indicated, 
control is given to the appropriate 
(device-dependent) surface check routine; 
otherwise, control is returned to the rou- 
tine which first issued the call to STAR- 
TIO. In the case of IBCDMPRS, the UCB is 
posted complete and control is returned to 
the routine which first issued the call to 
STARTIO. 



SENCHK : The device address is entered in 
SIO and TIO instructions, a sense CCW 
address is stored in the CAW, and the SIO 
is issued until it is accepted, at which 
time the TIO is issued. The TIO is reis- 
sued until it is accepted, at which time 
control is given to TYPECHK. 



TYPECHK : The device type causing the 
interruption is determined by interrogating 
the UCB, whose address is in register 
UCBREG. Control is then given to one of 
the following locations: 



Device Type Location 

2302,2303,2311,2314 ERR100 

1442 ERR200 
2400 series tape units ERR300 
1403 ERR400 
1052,2150 ERR500 
1402 ERR600 
2301 ERR700 

1443 ERR800 
2321 ERR900 

At each of the locations - ERR100, ERR200, 
IER900 - is the instrction 

EAL ERRLINK,ERRTEST 

followed by a table of two- byte entries. 
The instruction loads the address of the 
table into register ERRLINK and then gives 
control to routine ERRTEST, which uses the 
indicated table to interrogate status and/ 
or sense bits. 
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Each two-byte entry in the indicated 
table consists of a one-byte relative 
pointer to a status or sense bit and a one- 
byte relative pointer to a routine. Rou- 
tine ERRTEST successively interrogates the 
bit indicated by the first byte of the 
table entry; if the bit is on, ERRTEST 
directs control to the routine indicated by 
the second byte of the table entry; if not, 
ERRTEST processes the next entry in the 
table. 



Bits Setting 
Case 2: 0-3 X'O 1 



4-7 



X'y* 



Meaning 

The bit to be tested 
is a sense bit. 

y = the bit position 
(hexadecimal) of the 
bit to be tested, 
relative to bit of 
sense byte 0. 



The settings of the first byte of each 
table entry are as follows: 



Bits Setting 
Case 1: 0-3 X'l' 



4-7 



X'y' 



Meaning 

The bit to be tested 
is a status bit. 
y = the bit position 
(hexadecimal) of the 
bit to be tested, 
relative to bit 32 
of the CSW. 



If the tested half -byte is found to be 
on, ERRTEST directs control to location 

A+B, 



where: 

A = the address of the first byte of the 
current table entry; 

B = the value of the second byte of the 
current table entry. 
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Initializing and Assigning 
Alternate Tracks on Direct 
Access Volumes (IBCDASDI) 

The direct access storage device initiali- 
zation (IECDASDI) program performs one of 
two functions during a single execution: 

• Initializes a direct access volume to 
conform to Operating System/360 
specifications . 

• Obtains alternate tracks for specified 
defective tracks on an already initia- 
lized disk storage volume. 



The current version of this program 
initializes a volume on: 

• 2301 drum storage 

• 2302 disk storage 

• 2303 drum storage 

• 2311 disk storage 

• 2314 disk storage 

• 2321 data cell storage 



The program obtains alternate tracks for 
a volume on: 

• 2302 disk storage 

• 2311 disk storage 

• 2314 disk storage 

• 2321 data cell storage 

Initializing a direct access volume con- 
sists of the following: 

• Detecting defective tracks. 

• Assigning alternates to defective pri- 
mary tracks (on disk storage only) . 

• Writing the standard home address and 
record zero on each track. 

• Writing track zero, consisting of two 
IPL records, a standard volume label, 
and space for seven additional volume 
labels (see Figure 63). 

• Writing a standard volume table of con- 
tents (VTOC) at a user-specified 
location. 

• Optionally writing the IPL initializa- 
tion program. 



Obtaining an alternate track for a user- 
specified defective primary (i.e., nonal- 
ternate) track on disk storage consists of 
the following: 

1. Selecting the first available opera- 
tive alternate track from those indi- 
cated in the VTOC of the specified 
volume. 

2. Writing the address (CCHHR) of the 
primary track in the count field of 
the selected alternate track, and 
writing the address (CCHHR) of the 
alternate track in the count field of 
the primary track; 

3. Modifying fields five and six of the 
VTOC DSCB to reflect the new status of 
available alternate tracks. 



PROGRAM FLOW 

Chart 76 shows the logical flow of the 
DASDI program. This section describes the 
operations performed by the IBCDASDI pro- 
gram relative to its functions: initializ- 
ing a volume and obtaining alternate 
tracks. 

Descriptions of the following supervi- 
sory routines of the IBCDASDI program may 
be found in this publication in the section 
entitled "Supervisory Routines of the Inde- 
pendent Utilities." 

• Input Device Check (CKINPUT) 

• Data Input (SYSIN) 

• Control Statement Analysis (CLRSCAN) 

• Message Output (SYSOUT) 

• Write to Operator (OPPRNT) 

• I/O Control (STARTIO) 

• I/O Interruption Analysis (CKCSW) 

After the input device has been defined 
by the operator and checked for validity by 
the IBCDASDI program (see "Checking the 
Input Device"), control statements are read 
and analyzed (see "Control Statement Analy- 
sis") and control is given to the appropri- 
ate initialization or GETALT section of the 
program. 
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Initializing a Volume 

The following routines are executed to 
initialize a volume: 



• INTALT, which initializes a track for 
disk and drum devices. 

• WRITECTl, which initializes a track for 
data cell storage. 

• CCNSTR1, which builds an image of track 
zero in main storage. 

• YESUSER, which places additional volume 
labels in the track zero format. 

• C0NSTR2, which writes track zero. 

• WRTIPL, which writes the IPL initiali- 
zation program, if requested. 

• FMTVTCC, which builds the VTOC. 

• WRTVTOC, which writes the VTOC. 



Following execution of WRTVTOC, the pro- 
gram initiates normal end-of-job and the 
CPU assumes the WAIT state. 

INTALT 

initializes a track for disk and drum 
devices. When the device is disk, 
INTALT first checks the track for hav- 
ing been previously flagged as defec- 
tive. (This test can be suppressed 
for the first initialization on that 
volume.) Alternate tracks are immedi- 
ately assigned for tracks flagged as 
defective. 

Disk and drum track initialization may 
or may not include surface analysis. 
When the recording surface is to be 
checked, the alternate tracks are 
checked first. (The alternate track 
concept is not defined for drum 
storage.) If an alternate track is 
found to be defective, it is flagged 
as such (later, FMTVTOC adjusts field 
six of the VTOC DSCB to indicate the 
number of available alternate tracks). 
If a primary track is found to be 
defective, it is assigned an alternate 
by ASGNALT, which is the same routine 
used to assign alternate tracks for a 
GETALT execution of IBCDASDI. After 
the track is assigned by ASGNALT and a 
message printed, control is returned 
to the initialization section of the 
program, at which time the next track 
is checked, or, if all tracks have 
been checked, track zero is con- 
structed. Tracks are checked for a 
good recording surface in the follow- 
ing way: 



1. When the flag test has been sup- 
pressed, the home address (HA) is 
written followed by a maximum- 
length record zero consisting of 
data field of identical bytes of 
hexadecimal 55. 



2. The track is read and checked. 

3. A maximum-length record zero is 
again written, this time consist- 
ing of data field of identical 
bytes of hexadecimal 00. 

4. The track is read and checked. 

5. If no data error has occurred in 
steps 2 to 4 and no additional 
passes are requested, record ^ero 
is rewritten (see step 8). If 
additional passes are requested 
on this track, repeat steps 1 to 
4. 

6. If either step 2 or step 4 have 
indicated a data error, steps 1 
to 4 are repeated ten more times, 
unless a data error occurs. 

7. If any other data error occurs 
during step 6, the track is 
flagged as defective. An altern- 
ate track is assigned when the 
device is disk. For drum 
devices, a message is given indi- 
cating the address of the defec- 
tive track. If the HA-RO area is 
defective on a 2314 disk storage 
volume, an attempt is made to 
move the HA-RO fields down the 
track approximately 800 bytes. 

8. A track descriptor record (R0) is 
then written and verified as an 
8-byte count field followed by an 
8-byte data field of zeros. 

9. When all tracks have been initia- 
lized, control is given to CON- 
STR1. Otherwise, the sequence is 
repeated for each track. (When 
initialization without surface 
analysis is requested, only steps 
8 and 9, are repeated for each 
track. ) 

WRITECT1 

performs data cell track analysis in 
the following way: 

1. A home address (HA), track 

descriptor record (R0) , and a 
maximum length record one (Rl) 
are written on each of 20 tracks 
of a cylinder. The data field of 
Rl consists of identical bytes, 
containing hexadecimal E5. 
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2. An address compare is made on 
each of the tracks written in 
step 1, and record one is veri- 
fied for each track. 



3. Record one is erased for each 
track written above. 



WRIT PL 

writes the user-supplied IPL initiali- 
zation program, if requested. The 
program is written on the first track 
preceding the alternate track area 
(track 1999 on 2311), or, if that 
track is defective, on its assigned 
alternate. 



4. If no errors occur in step 2, 
steps 1 to 3 are repeated for 
each cylinder with additional 
address compares made after the 
completion of each strip, sub- 
cell, and cell. 

5. If an error (i.e., data check or 
missing address marker) has 
occurred during step 2, the track 
is rewritten and reread until 
either a successful pass is 
obtained or 113 errors have 
occurred. If this track is in 
the alternate area, it is flagged 
to prevent its future use. 
Otherwise, an alternate track is 
assigned by ASGNALT, and a mes- 
sage is printed. 

6. When all tracks have been initia- 
lized, control is given to 
CCNSTR1. 

C0NSTR1 

constructs track zero. If the IPL 
function is selected, records one and 
two are written as an IPL bootstrap 
program and a program to load the IPL 
initialization program. If the IPL 
function is not selected, record one 
is written as a program to set the 
WAIT state in the CPU in case the 
volume is loaded for execution. 

Regardless of whether the IPL function 
is selected, record two is written as an 
IPL bootstrap. (Since record one will set 
the WAIT state in the CPU in case a non-IPL 
volume is loaded for execution, there is no 
danger of executing record two.) 

YESUSER 

writes up to seven user-supplied addi- 
tional volume labels as records 4-10. 
Space is allocated for those volume 
labels not supplied. 

CONSTR2 

writes track zero, consisting of two 
IPL records (or a dummy IPL record) , a 
standard volume label and up to seven 
additional labels. 



FMTVTOC 

constructs the DSCBs needed for the 
VTOC. They are the VTOC DSCB (format 
4) and the DADSM ESCB (format 5). 

WRTVTCC 

writes at the user-specified location 
of the VTOC the DSCBs constructed by 

FMTVTOC. 

Obtaining Alternate Tracks 

If the IBCDASDI program is executed under 
the GETALT option, control is given to 
location GETALT following control card 
analysis. Routine GETALT performs a track 
check on the user-specified track if the 
track check bypass is not selected. If the 
track is found to be operative, a message 
to that effect is printed (or displayed) 
and the next GETALT request is processed. 
If the track check bypass is selected, or 
if the track is found to be defective, the 
following routines are executed in the 
order in which they appear. 

ASGNALT 

flags the given track as defective and 
assigns it an alternate as described, 
if it is a primary track. If the 
given track is an alternate, it is 
flagged as defective; if the given 
alternate track had been assigned to a 
primary, an operative alternate is 
assigned to the primary. 

TRKPRNT 

causes a message to be printed stating 
the addresses of the defective track 
and its assigned alternate. 

GETALTU 

decrements field six of the VTOC to 
reflect the fact that one less altern- 
ate track is available, and increments 
field five to point to the next avail- 
able alternate track. 

Control is then given to location GETALT 
to repeat the process for the next user- 
specified track, or, if none exists, 
initiates normal end-of-job and sets the 
CPU to the WAIT "state. 
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Chart 76. IBCDASDI - Initializing and Assigning Alternate Tracks on Direct Access Volumes 
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Dumping and Restoring a Direct 
Access Volume (IBCDMPRS) 



The direct access storage device dump- 
restore program performs one of two func- 
tions during a single execution: 

• Dumping (copying) data from a direct 
access volume to 2311 or 2314 disk 
storage or magnetic tape, in a format 
recognizable to the restore portion of 
the program. 

• Restoring (recopying) data which has 
teen dumped by this program. Data is 
restored only to a volume residing on a 
device of the same model number from 
which it was dumped. 



There is no provision to restore from 
2311 to 2311 or from 2314 to 2314. 
Instead, another dump of the same type may 
be performed. 

A dump may be either partial (a set of 
contiguous tracks is dumped) or entire (the 
entire volume is dumped). 

The current version of this program 
dumps the data contents of a volume from: 

• 2301 drum storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 

• 2302 disk storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 

• 2303 drum storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 

• 2311 disk storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 

• 2314 disk storage to magnetic tape or 
2311 disk storage or 2314 disk storage. 

• 2321 data cell storage to magnetic tape 
or 2311 disk storage or 2314 disk 
storage. 



DUMPED DATA FORMAT 

The format of dumped data depends on the 
device configuration of the dump: 2311 to 
2311 (or 2314 to 2314), direct access to 
tape, or non-2311 direct access to 2311 (or 
non-2314 to 2314). 



2311 TO 2311 (OR 2314 TO 2314) : Data from 
the input 2311 (or 2314) is copied record- 
for-record and track-f or- track. For this 
reason a restore from 2311 to 2311 (or 2314 
to 2314) is not provided, but can be 
effected by another dump. 



DIRECT ACCESS TO TAPE : The following rec- 
ords are written on tape for a direct 
access-to-tape dump (see Figure 6 4) : 

• A limits record is written as the first 
record (following any labels) on each 
volume of tape. This record contains 
the addresses of the first track 
dumped, the last track dumped, and the 
the first track dumped on this volume 
of tape. 

• A control recor d is written for each 
track dumped, immediately preceding the 
dumped data from the track. The con- 
trol record contains a channel program 
to be used by a subsequent restore to 
write one track. 

• A dumped track image is written as a 
maximum- length physical record. A 
track image is not split between tapes. 

• A trailer label is written at the end 
of each tape volume, immediately fol- 
lowing the tape mark. During a re- 
store, successive oring of trailer 
labels indicates whether another FROM 
volume is to be mounted. The mounting 
of FROM volumes during a restore is 
thus order-independent. 



NCN-2311 TO 2311 (OR NON-2314 TO 2314) : 
The records written as record one of track 
one of each 2311 (or 2314) volume needed 
for the dump are similar to those for tape, 
but with the following differences: 

• The limits record is written as record 
one of track one of each 2311 (or 2314) 
volume needed for the dump. The limits 
record contains (as with tape) the 
addresses of the first track dumped, 
the last track dumped, and the first 
track dumped onto this 2311 (or 2314) 
volume . 

• The control record is written immedi- 
ately preceding each dumped track 
image. The first control record on a 
volume is written as record one of 
track two; subsequent control records 
are each written as record one of the 
first track following the image of the 
last track dumped. The control record 
consists of two subsets: (1) eight 
two-byte fields, each containing the 
number of bytes of the original 
(dumped) track written on a track of 
the 2311 (Or 2314) and (2) a channel 
program to be used by a subsequent re- 
store to write one track. 

• A dumped track image is written in 
maximum- length physical records on as 
many 2311 (or 2314) tracks as are 
necessary. The number of bytes of the 
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dumped non-2311 (or non-2314) track 
written on each 2311 (or 2314) track is 
recorded in the control record for the 
track image. A dumped track image is 
not split between disk packs. 

• The trailer label is written as record 
one on the last available track of each 
2311 (or 2314) disk pack used. The 
contents of the trailer label for 2311 
(or 2314) are identical to those for 
tape. 



PROGRAM FLOW 

The flow of the direct access storage 
device dump/restore program is shown in 
Chart 77. Descriptions of the following 
supervisory routines of the direct access 
storage device dump/restore program may be 
found in this publication in the section 
entitled "Supervisory Routines of the Sup- 
port Utilities. " 

• Input Device Check (CKINPUT) 

• Control Statement Analysis (CLRSCAN) 

• Message Output (SYSOUT) 

• Write to Operator (OPPRNT) 

• I/O Control (STARTIO) 

• I/O Interruption Analysis (CKCSW). 

After the input device has been defined 
by the operator and checked for validity by 
this program, control statements are read 
and analyzed and control is given to the 
appropriate dump or restore section of the 
program. 

Dumping 

If the program is dumping, the following 
routines are executed in the order listed. 

TOTAPE 

ensures that the TO volume is mounted, 
whether tape or not. If the dump is 
not from 2311 to 2311 (or not from 
2314 to 2314), this routine also 
writes the limits record. 

MODTKADF 

reads the count fields on one track of 
the FROM volume and at the same time, 
if two channels are used, writes head- 
er or data records on tape from loca- 
tion DTABUFF. 

ANALSENS 

uses the information obtained from 
reading the count field of one track 
to construct a channel program capable 
of reading the count, key, and data 
fields of the track. 

READCCWS 

moves the channel program to a higher 
area in main storage and executes the 



channel program constructed by ANAL- 
SENS, reading one track of the FROM 
volume into the buffer DTABUFF. (In 
the buffer, record images are 
blocked.) 



TSTWRTSP 

converts the channel program at loca- 
tion DTALENG to a channel program cap- 
able of writing the buffer (with read- 
back check) onto a track of the same 
device from which it was read in its 
original format. 

If the dump is 2311-2311 (or 2314- 
2314), the channel program is 
executed, thus writing one track on to 
the 2311 (or 2314). 

If the dump is not 2311-2311 (or not 
2314-2314), the converted channel pro- 
gram is not executed during dumping, 
but will be executed during a future 
restore. After converting the channel 
program, this routine gives control to 
DMPDASD if the TO device is tape, or 
to STRTDSK if the TO device is 2311 
(or 2314). 

DMPDASD 

writes the control record, consisting 
of the channel program at location 
DTALENG on the tape. Control is then 
given to MODTKADF, E0J1, EOJAA, or the 
program terminates (see Chart 77). 

STRTDSK 

writes the control record and the 
buffer on 2311 (or 2314) disk storage. 
The function performed is similar to 
that of DMPDASD (writing on tape) , but 
with the following exceptions (see 
Figure 64). 

• The control record for dumping 
from non-2311 to 2311 (or non-2314 
to 2314) consists of a 16-byte 
field beginning at DTALENG pre- 
fixed to the channel program at 
location CCWLIST. 

• Several 2311 (or 2314) tracks may 
be needed to contain the data in 
the buffer at DTABUFF. If so, the 
buffer is written in maximum- 
length physical records on as many 
tracks as are needed. A buffer 
image is not split between disk 
packs. Any remaining space on the 
last track needed to contain the 
buffer image is not used. (The 
next control record begins on the 
next available track.) 

Control is then given to MODTKADF, E0J1, 
EOJAA, or the program is terminated (see 
Chart 77). 
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Figure 64. Dumping and Restoring a Direct Access Track 



EOJ1 



is given control when a new TO volume 
is needed. EOJ1 writes the trailer 
label on the current TO volume and 
then gives control to routine TOTAPE 
to insure that a new volume is 
mounted. (See "Dumped Data Format" 
for a description of the trailer label 
and its location for tape or disk. ) 



EOJAA 

is given control at the conclusion of 
an entire 2311-2311 (or 2314-2314) 
dump. EOJAA updates field six of the 
VTOC DSCB to reflect any alternate 
track assignments necessitated during 
the dump. A WAIT state is then set in 
the CPU and the program terminates. 

Restoring 

After the input device has been verified 
and control statements have been analyzed 
(see "Supervisory Routines of the Indepen- 
dent Utilities" ) , control is given to the 
restore section of the program, consisting 
of the following routines, which are 
executed in the order indicated. 



FRMTAPE 

ensures that a FROM volume is mounted, 
whether tape or disk. The order of 
volume mounting is immaterial. After 
a FROM volume is mounted, this routine 
reads the limits record (record one) . 
Control is then given to RSTRTAPE, if 
the FROM device is tape, and to 
STRTDSK, if the FROM device is 2311 



(or 2314) diax storage. When the 
device is not the 2301 drum and if 
there is at least 64K of main storage, 
buffers are built in upper storage for 
the data records and the channel 
programs . 



RSTRTAPE 

reads the control record into location 
DTALENG1, when storage is available. 
(The control record consists of a 
channel program capable of restoring 
the dumped track . ) From DTALENG1 , the 
record is moved to DTALENG. The image 
of the dumped track (in blocked record 
format) is read into location DTA- 
BUFE1, when storage is available, and 
then is moved to DTABUFF. Control is 
then given to MODTKADT. 



STRTDSK 

performs the same logical function as 
RSTRTAPE, but reads instead from 2311 
(or 2314) disk storage. The control 
record is first read into location 
DTALENG (also causing the channel pro- 
gram, the second field of the control 
record, to be read into location 
CCWLIST) . The first field of the con- 
trol record is then used to read as 
many tracks as are necessary to "fill" 
the buffer DTAEUFF, that is, to com- 
plete one dumped track image in the 
buffer. Control is then given to rou- 
tine MODTKADT. 
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MODTKADT 

executes the channel program at loca- 
tion DTALENG, thus restoring one track 
in its original format. If the FROM 
volume is not exhausted, control is 
given to RSTRTAPE or STRTDSK, depend- 
ing on whether the FROM device is tape 
or disk, respectively. When the FROM 
volume is exhausted, control is given 
to EOJA to read the trailer label. 



to be processed, control is given to 
FRMTAPE to insure that it is mounted, 
whether tape or disk. If no more FROM 
volumes are to be processed, control 
is given to EOJAA (if the restore is 
entire) , or the program is terminated 
(if the restore is partial) . Note ; a 
restore is entire or partial depending 
only on the limits of the companion 
dump. 



EOJA 



reads the trailer label (for a de- 
scription of the trailer label and its 
location, see "Dumped Data Format"). 
Successive oring of trailer labels by 
this routine controls FROM volume 
mounting. If another FROM volume is 



EOJAA 



updates field six of the VTOC DSCB to 
reflect any alternate track assign- 
ments necessitated during the (entire) 
restore. No such update is provided 
for a partial restore. 
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Chart 77. IBCDMPRS - Dumping and Restoring a Direct Access Volume 



****A2 ********* 

* 4 

* START * 

* * 
*************** 



* DEFINE INPUT ♦ 
>* DEVICE AND * 

* PERFORM SETUP * 

* * 
***************** 



TOTAPE 

*****C2* ********* 
♦MOUNT TO VOLUME* 
*IF DUMP IS NOT * 
*2311-2311 WRITE*<- 

* LIMITS * 

* RECORD * 
***************** 



MODTKADF 

*****D2 ********** 

* READ COUNT * 

* FIELDS OF ONE * 

* TRACK TO * 
♦CONSTRUCT CHAN * 
*PROG TO READ TR* 
***************** 



ANALSENS 

*****E2 ********** 
♦EXECUTE CHANNEL* 

* PROGRAM JUST * 

* CONSTRUCTED * 

* READING A TRACK* 

* INTO DTABUFF * 
***************** 



TSTWRTSP V 

*****F2********** 
♦CHANGE CHAN PRG* 
♦ JUST EXECUTED * 
*TO A WRITE PRG * 
*(TO BE WRITTEN * 
+ IN CONT RCD) * 
***************** 



*****G2********** 

* * 

* WRITE CONTROL * 

* RECORD IF * 

* NECESSARY. * 
♦WRITE DTABUFF. * 
***************** 



* ARE *. 
DUMP LIMITS . 
♦.SATISFIED.* 



* READ AND * 
♦ANALYZE CONTROL* 

* STATEMENTS * 

* * 
***************** 



NOTE 

FOR BLOCK G2 

THE FOLLOWING 

LABELS APPLY 

WRITE ON TAPE — DMPDASD 

WRITE ON 23X1 — STRTDSK 



♦MOUNT FROM VOL ♦ 
>♦ AND READ ♦ 

♦ LIMITS RECORD * 

♦ ♦ 
***************** 






*****04********** 

* READ CONTROL * 

* RECORD INTO * 

* DTALENG READ * 

* TRACK IMAGE * 

* INTO DTABUFF ♦ 
***************** 



MODTKADT 

*****£1J********** 

♦ EXECUTE * 

♦ CHANNEL ♦ 

♦ PROGRAM JUST * 

♦ READ IN TO * 

♦ WRITE A TRACK * 
***************** 



NOTE 

FOR BLOCK I/« 

THE FOLLOWING 

LABELS APPLY 

READ FKOM TAPE— RSTRTAPE 

READ FROM 2311 — STRDSK 



KOJA ^ 
•****G4* 


)*** 


* 


* READ 


* TRAILER 


* LAI 


iEL 



***************** 



. * ARE * . 
YES .* THERE *. 
*.ANY MORE FROM.* 



*****J1********** 

* * 

* WRITE TRAILER * 
♦LABEL (LAST TRK* 
♦ON DASD, AFTER * 



J2 



♦ C2 * 

♦ 4 
♦ ♦♦♦ 



EOJAA 

*****J3 ********** 
* UPDATE VTOC * 
IS THIS *. YES ♦ ON TO VOLUME ♦ 

AN ENTIRE .♦ >^TO REFLECT ANY *<- 

.2311-2311.* *ALTERNATE TRACK* 

*.DUMP .* * ASSIGNMENTS ♦ 

*. .* ***************** 

* NO 



****K3********* 

* 4 

* EOJ ♦ 

* (WAIT) ♦ 
*************** 
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Recovering and Replacing a 
Track (IBCRCVRP) 

The recover-replace program performs one of 
two functions during a single execution: 



• Recovering (reading) data from a track 
on an initialized direct access volume; 
listing defective records, or all reco- 
rds, if specified; and writing the good 
data on a recovery output tape for use 
by the replace portion of the program 
during a future execution. 



• Replacing a good track image on an 
operative track by merging data from 
the recovery output tape with replace- 
ment data supplied by the user. 

Requests may be stacked, but all must 
specify the same function — recover or 
replace. 

The current version of the program sup- 
ports recovery and replacement of data on: 

• 2302 disk storage 

• 2303 drum storage 

• 2311 disk storage 

• 2314 disk storage 

• 2321 data cell storage 

As a stand-alone program, recover- 
replace contains the following supervisory 
routines, described under the heading, 
"Supervisory Routines of the Independent 
Utilities": 

• Input Device Check (CKINPUT) 

• Data Input Routine (SYSIN) 

• Control Statement Analysis (CLRSCAN) 

• Volume Label Check (CKVOLLBL) 

• Message Output Routine (SYSOUT) 

• Write to Operator (OPPRNT) 

• I/O Control (STARTIO) 

• I/O Interruption Analysis (CKCSW) 



The logic of the recover and replace 
portions of the program is shown in the 
following charts: 



Chart 78. 
Chart 79. 
Chart 80. 
Chart 81. 

Chart 82. 



Overall Flow 



Overall Logic 

Recover Logic 

Recover Data Check Routine 

Recover Count Check and End- 

of-track Routines 

Replace Logic 



When the program gains control, it waits 
for the operator to define the input device 
from which utility control statements are 
to be read. The program then verifies that 
the input device definition is valid, and 
begins to read, scan, and analyze utility 
control statements . 

Figure 65 suggests how main storage is 
managed by the program. The space occupied 
by the replace portion of the program after 
initial loading is used as buffer for read- 
ing the track to be recovered or replaced. 
A recover run causes the replace coding to 
be overlaid by the track image; for a 
replace run the replace coding is first 
moved to overlay the recover portion of the 
program. 

Depending on the request, the appropri- 
ate recover or replace coding is then 
executed. Following this, listing is per- 
formed: for a recover run, if the LIST 
option is specified all records on the 
track are listed, or otherwise only the 
defective records; for a replace run, if 
the LIST option is specified all records on 
the replacement track are listed, or other- 
wise only the replacement records. When 
all requests have been serviced, the pro- 
gram issues an end-of-job message, rewinds 
and unloads the tapes, and sets the wait 
state in the CPU with D's displayed on the 
console lights. 



IBCRCVRP 



VRECOVR 



VRECTAB 
VGOODBUF 



Supervisory Routines 



Recovery Coding 



Control Data 



Replace Coding 



A. Program Listing 



(low) 


IBCRCVRP 


Supervisory Routines 


VRECOVR 

VRECTAB 
VGOODBUF 




Recovery Coding 


Control Data 






Buffer 



(low) 


BCRCVRP 


Supervisory Routines 


VRECOVR 




Replace Coding 


VRECTAB 






VGOODBUF 


Control Data 






Buffer 



B. Main Storage Contents for 
Recover Execution 



C. Main Storage Contents for 
Replace Execution 



Figure 65. Main Storage Management for Recover Replace 
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Recovering 

The recover portion of the program reads 
the specified track of the direct access 
volume, gathers control data to be used by 
a future replace run, and records the con- 
trol data and the successfully recovered 
portion of the track on a recovery output 
tape. Figure 66 shows the tape format. 

Records are read into VGOODBUF. If a 
data check is detected in the count field 
of a record or an address marker is missing 
from a record, the remaining bytes on the 
track, including records and gaps, are read 
into VGOODBUF using the space count command 
and are immediately listed on the message 
device. After listing, the records and 
gaps are cleared from VGOODBUF and the next 
record is read into VGOODBUF immediately 
following an 8-byte entry left in place of 
the record which had the bad count or mis- 
sing address marker. If the count field is 
good and the address marker is present, any 
key and/or data fields read, whether good 
or defective, will remain in VGOODBUF as 
read. (See Figure 67.) 

As each record is read into the buffer, 
an entry is built in the record control 
table VRECTAB. Each entry consists of a 
1-byte flag and a 3-byte pointer to the 
record image. The settings of the flag 
byte in VRECTAB are as follows: 



Bit=l 


Meaninq 





Bad count field 


1 


Bad key field 


2 


Bad data field 


3 


Missing address marker 


4 


Last record flag 


5 


Recovery was aborted 


6-7 


EOF with key 


7 


EOF (with or without key) 



After reading the track, recover builds 
at location CCWLIST a channel program which 
will be completed and executed by replace 
in writing and read-back checking the data 



put on the alternate track. Recover then 
stores into VALTBUF the address of the 
first doubleword boundary following the 
recovered data in VGOODBUF. This estab- 
lishes the area replace uses to receive 
data for records with bad counts or missing 
address markers. Recover then writes the 
recovery output tape. 

Replacing 

The replace portion of the program, which 
is moved to overlay the recover portion, 
reads the recovery output tape, reads 
replacement data supplied by the user, 
assigns an alternate track (if the volume 
resides on disk storage) , and writes the 
merged data on the track. 

The header record on the recovery output 
tape is first read and the serial number of 
the direct access volume is checked. The 
next two records (control record and reco- 
vered data) are then read into the same 
absolute storage locations they occupied 
during the companion recover run (VRECTAB 
and VGOODBUF) . Flag bytes in VRECTAB are 
then interrogated, and replacement data is 
read as needed. Replacement data is read 
into the alternative buffer (pointed to by 
VALTBUF) if the record to be replaced had a 
missing address marker or a bad count 
field; otherwise replacement data is read 
into VGOODBUF, overlaying the corresponding 
defective recovered key and/or data por- 
tions. When all replacement data has been 
read, an alternate track is obtained on the 
volume (if it is non-drum storage) , and the 
merged recovery and replacement data are 
written on the track using the channel pro- 
gram at location CCWLIST. If the HA-RO 
fields are defective on 2314 disk or 2321 
data cell storage, the program attempts to 
move these fields approximately 800 bytes 
down the track. 

Example : Figure 67 illustrates a complete 
cycle (two executions of the program) for 
recovering and replacing a track. 



LABEL 
(Optional) 


I 


TAPE 
MARK 


I 


ID 


VOL 


TRACK 


DATE 


PAD 


1 


CCWLIST 


VALTBUF 


VRECTAB 


1 


VGOODBUF \ \ 


1 


TAPE 
MARK 




ID = 4-byte constant "RECV" CCWLIST = Channel program VGOODBUF = Buffer 






VOL = 6-byte volume ID of to be used to containing 






direct-access device replace data on recovered data 






TRACK = 12-byte volume 






BBBBCCCCHHHH VALTBUF = Pointer to buffer 






of recovered track for replacement data 






DATE = 8-byte date of VRECTAB = Table of control 






assembly MM/DD/YY data for track 








PAD 


_ £ 


bytes 


of zeros 

























Figure 66. Format of Recovery Output Tape 
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During a recover execution, 
the track containing defective 
records is read into VGOODBUF; 
for each record, a flag and 
pointer are set in VRECTAB. 
In this example, the given track 
is found to be in the following 
condition: 

HA - Good 

RO - Good 

Rl - Bad count 

R2 - Bad key 

R3 - Bad data 

R4 - Missing address marker 

R5 - Last record, good 



2311 Disk Storage 



Recovery Output 



© 



© 



© 



The recovery output 
tape is written, 
consisting of a header 
record, a control 
record, and recovered 
data. The recover 
execution terminates. 



During a subsequent 
replace execution, the 
recovery output tape is 
read into the same 
absolute storage 
locations from which 
it was written. 



Using control data from 
VRECTAB, replacement 
data is read into 

(a) VGOODBUF, or 

(b) the buffer pointed 
to by VALTBUF, in 
case of bad count or 
missing address marker. 



Majn Storage 




1 



VRECTAB 



00000000 


HA Address 


00000000 


R0 Count Address 


10000000 


Rl Count Address 


01000000 


R2 Count Address 


00100000 


R3 Count Address 


00010000 


R4 (8 Bytes) Address 


00001000 


R5 Count Address 



© 



Using the channel program 
read from the recovery 
output tape, the merged 
(old and new) data is 
written on an alternate 
track. 



Flag (1) 



Pointer (3) 



VALTBUF 



(Next Double- 
Word Boundary) 



VGOODBUF 




i F 

ft© 


Replacement Data 






HA and Blanks 


:nd Data 


y New R2 Key 


R0 Count < 




Rl Count 


; 










| New R3 Data 


R3 Count, Key and Data < 




* i 


R4-8 Bytes 






_ 








iNew RT Count, 
Key and Data 




1 




\ 


< 

J New R4 Count, 

Key and Data 




- i 







Figure 67. An Example of the Recover-Replace Cycle 
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Chart 78. IBCRCVRP Overall Logic 



*************** 



WAIT FOR * 

OPERATOR TO * 

DEFINE INPUT * 

DEVICE * 

**************** 



**** 



**** 
CLRSCAN 

*****C3********** 

* READ, * 

* SCAN, AND * 
♦ANALYZE CONTROL* 

* STATEMENTS * 

* * 
***************** 



* MOVE REPLACE * 
->*CODE TO OVERLAY* 

* RECOVER CODE * 

***************** 



* RECOVER * 

* DATA FROM * 

* TRACK * 
***************** 



***** 

♦ 78 * 

* F3* 



*-*-*-*-*-*-*-*-* 

* REPLACE * 

* DATA ON * 

* TRACK * 
***************** 



.* WAS LIST 
► . OPTION 
♦.REQUESTED. 



VENTLIST 

*****G3* ********* 

* LIST * 

* DEFECTIVE * 

* RECORDS OR * 

* REPLACEMENT * 

* RECORDS ' * 
***************** 



*****G4 ********** 

* * 

* LIST * 
*ALL RECORDS ON * 

* TRACK * 

* * 
***************** 



**** .* * 

* * YES .* ANOTHER 

* C3 *< *. REQUEST 



ENDPRINT 

*****J3** ******** 

* GIVE * 

* EOJ MESSAGE, * 



***************** 



****K3* ******** 

* EOJ * 

* (WAIT) * 
♦HEX D"S IN PSW * 

*************** 
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Chart 79. IBCRCVEP Recover logic 



***** 

♦79 * 
* Al* 



* CLEAR BUFFER * 

* * 
***************** 



**** 

* * 

* A2 * — -J 
****** J 

*****A2* ********* 

* ISSUE SEEK, * 

* SFM. READ HA, * 
->* READ RO, READ * 

* COUNT Rl * 

* MULTI -TRACK * 
***************** 



V~ 



♦AND RO ENTRIES * 
* IN VRECTAB * 
***************** 



VLOOP 

*****D1 ********** 

* UPDATE * 
♦TABLE POINTERS,* 

>*PUT SKIP BIT ON* 

* IN PREVIOUS * 

* READ CCWS * 
***************** 



****C2** ******* 
* ERROR MESSAGE * 
ABNORMAL EOJ * 



EXIT TO tf 

END-OF-TRACK***** 
ROUTINE *81 * 

* G1* 



**** 

♦ 79 * 

* C3 *-> 



**** 
VBADHA 

*****C3********** 

* FLAG * 

* VRECTAB GIVE * 
♦MESSAGE, TRY TO*- 

* READ REST OF * 

* TRACK * 
***************** 



*****03* ********* 

* WRITE * 
♦MESSAGE HA AND * 

-*R0 ONLY ON THE *<- 

* TRACK * 



VBADKO 

*****bb*** ******* 
♦GIVE BADRO MSG,* 
* FLAG VRECTAB, * 

>*REPLACE READ RO* 

♦BY SPACE COUNT * 



1 : 



**************** 



♦79 * 

* hi* 
***** 



* SPACE COUiJT, ♦ 

♦ KEAD COUUT ♦ 

♦ MULTI- TRACK ♦ 

* * 
***************** 



VDISKEOF 



.* IS DATA *. YES 

♦.FIELD ABSENT .* >* . 

*. (EOF) .* 



***************** 



*****E3 ********** 

* FLAG VRECTAB. * 
*READ COUNT WITH* 

>* SKIP, READ * 

* COUNT NEXT * 

* RECORD * 
***************** 



VISSUERD 

*****F1 ********** 

* ISSUE CCW * 
♦CHAIN WITH READ* 

* CKD AND END 

* WITH READ CT 

* MULTI-TRACK * 
***************** 



*<- 



*****F2********** 

* * 

* FLAG VRECTAB, * 
-*SET EXPECT EOF * 

* SWITCH * 

* * 
***************** 



PERMANENT 



*. ERROR .* 

* YES ♦ *** 



*****G2 ********** 

* UPDATE TABLE, * 

* RESET EOF * 
♦SWITCH, CHANGE * 

* READ CKD TO * 

* READ COUNT * 
***************** 



* Gl * 

♦ ♦ 
♦ ♦♦♦ 



EXIT TO 
DATA CHECK 
ROUTINE 



. ♦ DATA ♦ . 

->♦ CHECK IN COUNT. 

♦ . FIELD . ♦ 



EXIT TO 
COUNT CHECK 
ROUTINE 



♦ ♦♦♦ 

->♦ D4 * 

* * 

**** 



**** 
* 
->* F5 



* EU : 

* * 
**** 

VALTS 

*****£!)********** 

* PICK UP * 

* POINTER TO . * 
♦ALTERNATE FROM ♦ 
♦RO COUNT FIELD ♦ 

* * 
***************** 



VPRNTALT 

*****FU********** 

* WRITE * 
♦MESSAGE GIVING ♦ 
♦ALT ID, PUT ALT* 
♦ADDRESS IN SEEK* 

♦ ADDR . ♦ 
♦♦♦**♦♦♦♦♦******* 

**+* 

* * 
->* A2 * 

* * 
**** 

VSPECOVR 

*****£!J ********** 

* SET OVERFLOW * 

♦ SWITCH, GO TO ♦ 

♦ END OF TRACK * 
+ ROUTINE * 

* 4 
♦**♦♦♦*******♦♦♦* 



YES 

r 


.♦DATA CHECK 
. IN COUNT 
♦ . FIELD 
♦ . .* 


y 


*. . * 


*** 
l ♦ 

Al* 


* NO 



I EXIT TO 
V COUNT CHECK 
.♦.ROUTINE 



.♦ FILE MASK ♦. YES 

->*VIOLATION (END.* , 

TRACK). ♦ 



I ♦.OB 
**** 



EXIT TO * 

END-OF-TRACK 

ROUTINE 



isXIT TO 
♦END-OF-TRACK 
ROUTINE 



*****d 1| ********** 

♦ * 

♦ * 

♦ ERROR MESSAGE ♦< 

♦ ♦ 

♦ * 
***************** 



****J<4 ********* 



*************** 



MISSING 
ADDRESS 
MARKER 



♦ FLAG VRECTAB ♦ 

♦ * 

♦ * 
***************** 



*****K5 ********** 

* REISSUE CCW * 

♦ CHAIN WITiti ♦ 
— ♦SPACE COUNT FOR* 

♦RECORD WITHOUT ♦ 
♦ADDRESS MARKER ♦ 
***************** 
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Chart 80. IBCRCVRP Recover Data Check Routine 



***** 

♦ 80 * 

* Al* 



.* MISSING *. 
.ADDRESS MARK . 
♦.SWITCH ON.* 



*****&2** ****** ** 

* * 
♦INTERRUPT FROM * 

->* END OF SPACE *- 

* COUNT. GO TO * 

* VCNTCKS * 
***************** 



*****$2********** 

♦ * 
♦INTERRUPT FROM ♦ 

->♦ END OF SPACE *- 

♦ COUNT. GO TO * 

♦ VAMCHK ♦ 
***************** 



.* PREVIOUS ♦. YES 

.DATA CHECK ON.* 

*.KEY FIELD.* 



.PREVIOUS DATA. YES 

.CHECK ON DATA.* 

*.OF RECORD. ♦ 



* BOTH KEY AND * 
->* DATA BAD. FLAG * 

* VRECTAB * 

* * 
♦*♦♦♦♦♦♦****♦**** 



->* DATA BAD. FLAG *- 

* VRECTAB * 

* ♦ 
***************** 



_ V 

♦ ♦♦♦ 



VDATARD 

*****C3 *****♦**♦♦ 

♦ PUT SPACE ♦ 

♦ COUNT IN FOR ♦ 
— >*BAD RECORD. MOVE*- 

*RC TO END. RESETS 

♦ SWITCHES * 
♦♦♦♦*♦♦♦♦♦♦*♦*♦*♦ 



— V 
***** 
*79 * 



tt***El********** 

* SET * 

* DATA CHECK * 
♦OCCURRED SWITCH* 

* VBADDT * 

* * 
**♦*♦*********♦*♦ 


>♦ 


E2 ♦. 

.♦ *. 

.♦ ♦ 

.HOME ADDRESS 

♦ . BAD . ♦ 

♦ . .* 

*. .* 

* YES 

1 

*♦♦*♦ 
♦ 79 ♦ 


NO 




* 


E3 *. 
* *. 

*. YES 








.* 
*. . * 
*. .* 
♦ NO 

1 


V 

♦ ♦♦♦ + 

♦ 79 ♦ 

♦ B5* 
* * 

♦ 



. * DOES *. YES 

.RECORD HAVE A.* 

* . KEY . * 



.* WAS KEY *. NO 

->*.READ WITHOUT .* 

♦. ERROR .♦ 



t****-F5********** 

* SET * 
♦VBADKEY SWITCH * 

->* TO SIGNAL KEY * 

* IS BAD * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



.* WAS LAST *. 

+RECORD READ' AN. 

*. EOF .* 



*****Qti ********** 

* SET EXPECT * 

* EOF SWITCH. * 
->* MAKE NEXT TO * 

♦LAST CCW A READ* 

* COUNT * 
***************** 



VCOMDMV 

*****J2 ***♦♦♦**** 

* MAKE LAST * 
♦COMMAND A READ * 

♦ DATA FOLLOWED ♦- 

♦ BY READ COUNT * 

* MULTI -TRACK * 
***♦*♦♦*♦♦♦*♦*♦♦♦ 



*****J3* ********* 



**************** 



*****%■$********** 

* CLEAR BAD * 

* DATA SWITCH, * 
-*READ DATA. GOT *<- 

* RECORD THIS * 

* TIME * 
***************** 



***** 

♦ 79 ♦ 

* Dl* 



♦ ♦♦♦♦ 

♦ 79 * 



. * DOES * . 

•RECORD HAVE A. 

*. BAD KEY .♦ 



GOOD DATA * 
* ♦ 

***************** 



***** 

♦ 79 * 

* Dl* 
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Chart 81. IBCRCVRP Recover Count Check and End-of -Track Routines 



***** 

*81 * 
* Al* 



VCNTCK V 

*****&L********** 

* SET BAD COUNT * 

* SWITCH * 
♦VCOUNTBD. ROUND* 

* UP VRECTAB * 

* ADDRESS * 
***************** 



***** 






♦ 81 * 






* A3* 


VEOT .*. 




* * 


A3 *. 




* 


.* *. 




L_ 


.* TRACK *. YES 




>*. FLAGGED BAD .* 


"~V 




*. ORIGINAL .* 




*. .* 


***** 




*. .* 


*79 * 




♦ NO 


* Et* 



*****d ********** 

* FLAG * 

* RECORD IN * 
*VRECTAB AS BAD * 

* COUNT FIELD * 

* * 
***************** 



VCALCSZ 1 ' 

*****Q1********** 

* MOVE COUNT * 

* FIELD AS READ * 
*INTO VGOODBUF. * 
♦CALCULATE SIZE * 

* OF TRACK * 
***************** 



*****E1********** 

♦ SET UP SPACE ♦ 
♦COUNT COMMAND. ♦ 

♦ ISSUE CCWS TO ♦ 
•READ REMAINDER * 

♦ OF THE TRACK * 
***************** 



* Fl *-> 



**** 
VCNTCKS 

*****F1********** 

* SET UP AND * 

* WRITE MESSAGE * 
*OF BAD COUNT OR*<- 
♦MISSING ADDRESS* 

* MARK * 
***************** 



*****G1 ********** 

* FORCE ♦ 

* LIST OF BAD * 

* RECORD ON * 
♦MESSAGE DEVICE * 

* * 
***♦♦•*******••** 



.♦IS MISSING ♦ 
.ADDRESS MARK 
♦SWITCH SET.* 



***** 
*81 * 

* F2* 



VAMCHK V 

♦♦♦•*F2********** 

♦ RETURN * 

♦ AFTER DATA * 
* CHECK ON SPACE * 

♦COUNT REFER TO ♦ 

♦ MAM * 
***************** 



♦ ♦♦♦♦B3***** + + ^ + 

♦ FLAG LAST * 

♦ RECORD IN * 

♦ VRECTAB. ♦ 

♦ CALCULATE TOP * 

♦ OF VGOODBUF * 
***************** 



♦♦♦**C3********** 

♦ ♦ 

♦ STORE HIGHEST * 

♦ ADDRESS IN ♦ 

♦ VGOODBUF INTO * 

♦ VALTBUF * 
***************** 



VREPCCW 

*****D3 *♦♦♦♦♦♦*** 

* BUILD CCW ♦ 

* LIST FOR * 
♦REPLACE TO USE * 

* TO WRITE * 

* RECORDS * 
*♦**********♦♦♦** 



♦OVERFLOW SWITCH* 

* . SET . * 



♦♦♦♦♦E4 ********** 

♦ MAKE OP ♦ 

♦ CODE FOR LAST * 
->*RECORD WRITTEN * 

*A WRITE SPECIAL* 

♦ CKD * 
***************** 



♦♦♦♦♦Jl*********+ 

♦ ♦ 

♦ RESET ♦ 

♦ BAD COUNT ♦- 

♦ SWITCH * 

♦ * 
***************** 



***** 

♦ 81 * 

* H2* 



*****H2 **♦♦♦♦**** 

* RESET * 
♦MISSING ADDRESS^ 

->♦ MARKER SWITCH ♦- 

* ♦ 

* * 
*******♦♦♦♦♦♦♦♦♦♦ 



VRETRS 

♦♦♦♦♦J2 ♦♦******♦♦ 

* MOVE READ * 

* COUNT M/T TO ♦ 
>^END OF CCWS. UP*<- 

* RECORD COUNT * 

* * 
************♦♦♦♦♦ 



* CREATE READ * 
♦BACK CHECK CCWS+ 
♦FOR WRITE CCWS * 

* BUILT * 
***************** 



*****Q3**** **♦♦♦♦ 

♦ ENTER * 

* WRITE RECOVER * 
♦TAPE ROUTINE AT+- 

* RCVRTAPE * 

♦ ♦ 
♦♦♦♦♦♦♦♦********* 



*****H3********** 

♦ INSERT NOP * 
♦COMMAND IN CCW * 

>* LIST TO * 

♦ SUPPRESS MAM * 

♦ FOR RECORD + 
♦♦♦♦♦♦♦♦♦♦♦♦***** 





♦ ♦♦*♦ 




♦81 ♦ 


RCVRTAPE 


* G«* 


*****G1| ♦♦******** 


♦ ♦ 


♦ USE * 


♦ 


♦ TAPECHKS * 


1 


>♦ ROUTINE TO ♦< — 




♦ POSITION TAPE * 





***************** 



♦ ♦♦♦♦rj !)♦♦♦♦♦♦♦*** 

♦ WRITE THREE * 
♦RECORDS OX THE * 

♦ TAPE, WTK, ♦ 
♦REWIND. UNLOAD ♦ 

♦ TAPE * 
♦♦♦♦♦*******♦♦♦** 



♦ ♦♦♦♦ 

♦ 78 ♦ 

♦ F3* 



♦ ♦♦♦♦ 

♦ 79 * 

♦ Dl* 
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Chart 82. IBCRCVRP Replace Logic 



* RESET * 
♦SWITCHES CLEAR ♦- 

* BUFFER AREA * 

* * 
***************** 



READRECT V 

******A2 *********** 
READ A 
* RECORD FROM * 
> RECOVER TAPE 



********** 



.* IS IT 
->*. THE HEADER 
*. RECORD . 



CKVOLLBL V 

*****B3* ********* 

* CHECK VOLUME * 

* LABEL, CHECK * 

* DATE. CHECK * 
♦TRACK DEFINED, * 

* HALT ON ERROR * 
***************** 



******C3* ********** 

* READ IN THE * 

NEXT TWO TAPE 

* RECORDS * 

************* 



CRT ABLE 

*****D3* ********* 

* CHECK * 

* VRECTAB FOR * 
>*RECORD ENTRIES * 

* OF THIS TRACK * 

* * 
***************** 



IS IT THE 
FIRST BAD 
. RECORD . 



READDATA 

******F4*********** 

READ 

♦IN AND PROCESS * 

THE <- 

* REPLACEMENT * 

DATA 

************* 



RDCARD 

*****ii5 ********** 

* READ * 
♦ANOTHER INSERT * 

>♦ CARD FOR THE * 

* REPLACEMENT ♦ 

* DATA * 
***************** 



VTOCREAD 

*****G3* ********* 

* ASSIGN AN * 

* ALTERNATE * 

* TRACKIF THE + 
♦DEVICE IS DISK * 

* STORAGE * 
***************** 



CKOVRLW 

*****tiH** ******** 

* CHANGE LAST * 

* CCW CODE TO ♦ 
>* WRITE SPECIAL * 

♦COUNT-KEY-DATA * 



***************** 



************* 



» ON TRACK * 
************* 



***** 
*78 * 
* F3* 



***** 
*78 * 
* F3* 
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Appendix A: Modules of Utility Programs 



This appendix describes the modules of each 
utility program. The module names given 
are the SYS1.UT506 names. When these names 
differ from equivalent SYSl.LINKLIB names, 
the latter are given in parentheses. In 
the case of the independent utilities 
IBCDMPRS, IBCRCVRP, and IBCDASDI, the pre- 
vious statement is not applicable since 
these programs are part of the SYSl.SAMPLIB 
data set. 



IEBCOMPR 

IEBCROOT 

is the root segment; it opens and 
closes SYSPRINT, writes messages, and 
calls the proper modules. 

IEBCOMPM 

is the message module. 

IEBCANAL 

interprets returns from IEBCCS02. 

IEBCMAIN 

when the data sets are partitioned, 
compares directories to determine 
whether one is a subset of the other; 
when the data sets are sequential, it 
compares the data sets. 



IEBCOPY 

IEBCOPYA 

is the root segment; it gives control 
to the proper modules, and prints all 
error messages and control cards. 

IEBCOPYB 

is the message module. 

IEBCOPYC 

opens and closes SYSPRINT data set, 
obtains storage for and constructs 
work areas and tables, calls and then 
interprets returns from IEBCCS02, and 
when control cards are present, checks 
them for validity. 

IEBCOPYD 

is the processor module; it opens and 
closes SYSUT1 and SYSUT2 data sets, 
analyzes tables from COPYC and: if 
total copy, reads in directory and 
sorts by TTRs; if exclusive copy, 
sorts exclude table by MEMBER NAME 
sequence, reads the data set direc- 
tory, compares for excludes of direc- 
tory names, and sorts directory names 
by TTRs; if inclusive copy, copies 
included names and moves data from 
input buffer to output buffer. 



IEBPTPCH 

IEBPPUN1 

is the root segment; it opens and 
closes SYSPRINT data set, calls proper 
modules, and prints all messages and 
control cards . 



IEBEDIT 

IEBEDIT 

extracts records from a master file of 
JCL statements to create an edited 
input stream data set. 



IEBPPMSG 

is the message module. 



IEBGENER 



IEBPPAL1 

obtains storage for and then con- 
structs tables and work areas, calls 
and then interprets returns from 
IEBCCS02, checks for valid parameters. 



IEBGENRT 

is the root segment; it opens and 
closes SYSPRINT, writes all messages 
and control cards, and gives control 
to proper modules. 



IEBCCS02 

opens and closes SYSIN data set, reads 
and scans cards, returns data to 
IEBFPAL1. 

IEBPPCH1 

is the processor module; it handles 
sequential and partitioned data sets, 
opens and closes SYSUT1 and SYSUT2 
data sets, checks for valid control 
cards, and examines tables built by 
IEBFPAL1. 



IEBGMESG 

is the message module. 

IEBGSCAN 

obtains storage for and then con- 
structs tables, calls and then inter- 
prets returns from IEBCCS02, analyzes 
control cards. 

IEBGENR3 

is the processor segment root module; 
it opens and closes input and output 



214 



data sets and performs label 
processing. 

IEBGENS3 (IEBGENR3) 

performs I/O operations for variable 
spanned records. 

IEBGEN03 (IEBGENR3) 

performs I/O operations for non- 
variable spanned records. 

IEBM0VE2 

moves logical records from input to 
output buffer. 

IEBEDIT2 

moves, with editing, logical records 
from input to output buffer. 

IEBC0NH2 

converts data from H set BCD to 
EBCDIC. 

IEBC0NP2 

converts data from packed to zoned 
decimal. 

IEBC0NZ2 

converts data from zoned to packed 
decimal. 



IEHSCAN 

reads control statements and scans 
them for INITT command and for 
keywords . 

IEHPRNT 

is the message module. 



IEHDASDR 

IEHDAOUT formats and writes dumped informa- 
tion to the SYSOUT data set. 

IEHDASDR 

is the entry point for the program. 
It performs initialization and passes 
control to the Control routine. 

IEHDASDS 

is the Control routine. It processes 
control statements and passes control 
to the functional routines. 

IEHDCELL 

is the Data Cell Analysis routine. It 
performs surface analysis of data cell 
volumes. 



IEBLENP2 

computes total output record whenever 
an input record is encountered. 



IEHUCSLD 

IEHUCSLD 

checks for type of operation, for 
universal character printer, and for 
buffer load characters; issues WTOR to 
mount proper chain; loads the buffer 
and verifies it, if specified. 



IEHIOSUP 

IEHIOSUP 

finds first load module of SVC routine 
then loads succeeding modules, reads 
in the member, and updates member's 
XCTL table, if present. 



IEHDDATE 

is the Date routine. It obtains the 
day's date and passes it to the Print 
routine, IEHDPRNT. 

IEHDEXCP 

is the I/O subroutine of the Dump rou- 
tine. It performs all I/O operations 
during a dump except for those per- 
formed by IEHDAOUT. 

IEHDGETA 

is the control routine for performing 
alternate track assignment. 

IEHDLABL 

writes new volume serials and owner 
names on direct access volumes. 



IEHDMSGB 

is the Message Builder routine, 
selects, constructs, and stores 
messages. 



It 



IEHINITT 

IEHINITT 

is the root segment; it opens and 
closes SYSIN and SYSOUT, builds tape 
label image in main storage, extracts 
information from the JFCB, and links 
to SVC 39 to write the tape label. 

IGC0003I (SVC 39) 

writes a tape volume label followed by 
a dummy header label and a taperoark. 



IEHDMSGS 

is the message CSECT. It contains the 
messages used by the IEHDASDR program. 

IEHDPASS 

is the Password Protection routine. 
It checks the passwords required for 
security protected data sets, and 
checks data set expiration dates. 

IEHDPRNT 

writes messages to the SYSOUT data 
set. 
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IEHDREST 

is the Restore routine. It reads 
dumped information from a restore tape 
and writes the information on direct 
access volumes. 

IEHDSCAN 

is the Scan routine. It reads control 
statements and scans them for syntax 
errors, one field at a time. 

IEHDVTOC 

is used by the Analysis routine to 
write system data on direct access 
volumes* 

IGCOOOaB 

is the first load of the SVC 82 rou- 
tine. It builds DEEs for new direct 
access volumes and passes control, 
when necessary, to one of the other 
loads. 

IGC0108B 

is a load of the SVC 82 routine. It 
assigns an alternate track on a direct 
access volume. 

IGC0208B 

is a load of the SVC 82 routine. It 
updates UCBs to reflect new volume 
serials or VTCC location changes. 

IGG019P8 

is the End-of-Extent appendage rou- 
tine. It modifies extent limits and 
file masks in DEEs. 

IGG019P9 

is the Abnormal End appendage routine. 
It is used to bypass I/O Supervisor 
error processing. 



IEHMVEST 

clears work areas and initializes for 
a request. 

IEHMVESJ 

reads cards. 

IEHMVSSS (IEHMVESS) 

builds tables and sets switches. 

IEHMVESI 

opens the catalog for a data set group 
operation. 

IEHMVESC 

reads the catalog and writes it onto 
SYSUT1 for a data set group operation, 
or writes the catalog onto SYSUT2 for 
a move or copy catalog. 

IEHMVESH 

closes the catalog and sets up for 
following request. 

IEHMVSSZ (IEHMVESZ) 

checks for volume or data set. 

IEHMVSSV (IEHMVESZ) 

obtains "FROM" DSCB, links to module 
for mounting of 'EROM' volume. 



IEHMVMRZ (IEHMVESZ) 

writes messages. 

IEHMVSRZ (IEHMVESX) 

handles routing and errors. 

IEHMVSRV (IEHMVESX) 

allocates the catalog on two volumes 
if necessary. 

IEHMVSRK (IEHMVESX) 

reads unloaded records. 



IEHMCVE 

IEHMOVE 

is the root segment; it obtains a save 
area. 

IEHMVSRS 

loads modules if required. 

IEHMVXSE 

gets three work files and a work area. 

IEHMVXSE 

is the first-time control module for 

IEHMVSSF. 

IEHMVSSF (IEHMVSF) 

mounts volumes. 

IEFWKSKA (IEHMVSF) 

is the systems device mask table. 



IEHMVSRY (IEHMVEXV) 

handles routing and errors. 

IEHMVSSX (IEHMVEXV) 

allocates two data sets. 

IEHMVSTC (IEHMVEXV) 

reads 'FROM* partitioned data set 
directory. 

IEHMVMRY (IEHMVEXV) 

writes messages. 

IEHMVSSY (IEHMVESY) 

handles routing and errors. 

IEHMVSRM (IEHMVESY) 

writes first unloaded record when 
applicable. 

IEHMVSRX (IEHMVESY) 

builds 'TO* and ■fROM' DCBs, handles 
"TO* DD and 'FROM* DD. 
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IEHMVMSY (IEHMVESY) 

writes messages. 

IEHMVMRZ (IEHMVESY) 

writes messages. 

IEHMVETJ 

reads "FROM* and writes 'TO' sequen- 
tial or partitioned data set without 
performing reblocking. 

IEHMVESL 

reads 'FROM* and writes 'TO* sequen- 
tial or partitioned data set; reblocks 
type F records. 

IEHMVESM 

reads 'FROM* and writes •TO' sequen- 
tial or partitioned data set; reblocks 
type V records. 

IEHMVSRD (IEHMVERD) 

builds unloaded records. 

IEHMVSRM (IEHMVERD) 

writes unloaded records. 

IEHMVSRA (IEHMVERA) 

recreates unloaded record in original 
state. 

IEHMVSRK (IEHMVERA) 

reads unloaded records. 



IEHMVMSQ (IEHMVESQ) 

writes messages. 

IEHMVESP 

catalogs and uncatalogs copied data 
sets. 

IEHMVESO 

checks errors - job abort or request. 

IEHMVESK 

closes SYSIN; scratches and closes 
SYSUT1, SYSUT2, and SYSUT3. 



IEBISAM 

IEBISAM 

is the root segment; it sets up a com- 
mon work area, obtains input parame- 
ters, sets switches, and passes con- 
trol to the required module. 

IEBISC 

copies records of an indexed sequen- 
tial data set. 



IEBISU 

retrieves logical records sequentially 
from an indexed- sequential data set. 



IEHMVSTA (IEHMVETA) 

builds unloaded record and creates 
original record. 

IEHMVSRM (IEHMVETA) 

writes unloaded records. 

IEHMVSRK (IEHMVETA) 

reads unloaded records. 

IEHMVMTA (IEHMVETA) 

writes messages. 

IEHMVESR 

gets directory entries from SYSUT3 
work file. 

IEHMVETG 

gets directory entries from SYSUT1 of 
includes or selects. 

IEHMVESU 

writes messages. 

IEHMVESN 

closes •TO* and 'FROM' data sets; 
determines next module. 

IEHMVMSN (IEHMVESN) 

writes messages. 

IEHMVESQ 

catalogs and uncatalogs moved data 
sets. 



IEBISSO (IEBISU) 

creates 80-byte logical records with 
fields as defined for 'unloaded* data 
sets. 

IEBISL 

reconstructs indexed-sequential data 
set from 'unloaded' data. 

IEBISSI (IEBISL) 

retrieves logical records from an 
'unloaded' data set. 

IEBISPL 

prints logical records of an indexed 
sequential data set. 

IEBISF 

writes messages, prints error messages 
if applicable, and returns completion 
code to root segment. 



IEHPROGM 

IEHPROG1 (IEHPROGM) 

gets work area, reads SYSIN, mounts 
volumes if applicable. 

IEHPR0G2 (IEHPROGM) 

issues SVCs for cataloging, uncatalog- 
ing, deleting, connecting, releasing, 
BLDA, DELET. 
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IEHPR0G3 (IEHPROGM) 

contains and writes messages. 

IEHPROG4 (IEHPROGM) 

opens input and output DCBs. 

IEHPROG5 (IEHPROGM) 

prepares for the volume mounting 
module IEHMVSSF. 



IBCRCVRP 

IBCRCVRP 

recovers usable data from a defective 
track, assigns an alternate track, and 
merges replacement data with the reco- 
vered data onto the alternate tracks 



IBCDASDI 



IEHLIST 



IEHQSCAN (IEHLIST) 

reads control cards. 

IEHPRMSG (IEHLIST) 

message module. 

IEHPRINT (IEHLIST) 

scans and prints requested data from 
VTCCs, catalogs, and directories. 



IBCDASDI 

initializes and assigns alternate 
tracks to a direct access volume. 

IFCEREPO 

modules for this utility program are 
summarized in Figure 25. 



IEBUPDAT 

IEBUPDAT 

updates 80-character logical record 
libraries. 



IEBUPDTE 

IEBUPDT2 (IEBUPDTE) 

creates partitioned or sequential data 
sets, sequences new data sets, rese- 
quences old data sets, replaces or 
reproduces data set members, or adds 
members to a partitioned data set. 

IEBUPLOG (IEBUPDTE) 

opens SYSPRINT and writes messages. 

IEBUPDTE 

reads control cards, and opens SYSUT1 
and SYSUT2. 

IEBASCAN (IEBUPDTE) 

scans and analyzes control statements 
and sets appropriate flags. 

IEBUPNIT (IEBUPDTE) 

initializes the region IEBUPCON and 
opens SYSIN data set. 

IEBUFXIT (IEBUPDTE) 

contains exit routines for the 
program. 



IBCDMPRS 

IBCDMPRS 

creates backup copies of direct access 
volumes. 



IEBDG 

IEBDG 

is the control module that is the 
interface with a calling program. It 
opens the input, output, and message 
data sets, and it reads the program's 
control cards. 

IEBFDANL 

analyzes the keywords and parameters 
on an FD card and begins construction 
of an entry in the FD table. 

IEBFDTBL 

completes the construction of the FD 
entry that was begun by the FD analy- 
sis module. It assigns FD card 
default values if necessary. 

IEBCRANL 

analyzes the keywords and parameters 
on a CREATE card and builds a create 
table entry, a picture table, an FD 
address table, and an exit name table. 

IEBCREAT 

generates output records by using 
information from (1) input data sets, 
and (2) tables built by previous 
modules, as required. It permits user 
modifications before final record out- 
put. It releases storage obtained for 
information tables. 

IEBDGMSG 

is the message module, and it controls 
the paging on a message printer. 

IEBDGCUP 

is the clean-up module that closes 
DCBs and frees storage for DCEs and 
buffer pools. 
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I Appendix B: User-Label Processing 



With respect to the processing of user 
labels by user routines. Figure 68 shows 
the general logic of the following utility 
programs: IEBCOMPR, IEBGENER, IEBPTPCH, 
and IEBUPDTE. 



The following text discusses parameter 
information passed from a utility program 
to a user routine, and return code informa- 
tion passed from a user routine to a utili- 
ty program. 
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****B1********* 

» 4 

* JCL ENTRY * 
k * 

*************** 



*****C1********** 

* * 

* CONTROL * 

* CARD * 

* SCAN * 

* * 
***************** 



*****OX ********** 



***************** 



******E1*********** 

* LOAD USER * 

EXIT 

* ROUTINE * 

************* 



*****C2** ******** 

* CONTINUE * 

* UTILITY * 

* PROGRAM'S *< 

* INTENDED * 

* FUNCTION * 
***************** 



****D2 ********* 

► CONTINUE * 

► UTILITY'S * 

► PROCESSING * 
*************** 



**B3*******(SEE 

* * 

* OPEN * 

* INPUT * — 

* DATA SET * 

* * 
*********** 

**** 

* * 

* 2 *-> 

* * 
**** 

.*. 
C3 *. 
. * *. 
NO .*TERMI NATION*. 
*. REQUESTED . 



****03 ********* 
» TERMINATE * 
» AND RETURN TO * 
* SUPERVISOR * 

*************** 



*****B5 ********** 

* * 

* COMPLETE * 
>* THE DATA * 

* SET OPENING * 

* * 
***************** 



IEBXXXXX * •>. 
-*-*-*-*-*-*-*-* >^ 
TO SPECIFIC * A 

* UTILITY * 

* PROGRAM * -IEBCOMPR- 
***************** -IEBGENER- 

-IEBPTPCH- 
-IEBUPDTE- 



utility"" 

PROGRAM 
IEBCOMPR 


LABEL EXITS 
TAKEN FOR: 

INPUT HEADER. 
INPUT TRAILER. 


IEBGENER 


INPUT AND 
OUTPUT HEADER. 
INPUT AND 
OUTPUT TRAILER. 


IEBUPDTE 


HEADER, FOR 

DATA ON SYSIN 

OR SYSUT1. TRAILER, FOR 

DATA ON SYSUT2. 

(FOR UPDATE=INPLACE, 

NO OUTPUT LABEL EXITS.) 



. * LABEL * . 
. PROCESSING . 
♦.REQUESTED.* 



*****E4** ******** 

* * 

* SAVE LABELS * 

* IN STORAGE * 

* AREA * 

* * 
***************** 



*****E5*** ******* 

* POSITION * 

* UTILITY * 

* PROGRAM AT * 

* DATA AFTER * 

* LABEL GROUP * 
***************** 



*****Q1********** 

* BUILD DCB * 

* EXIT LIST * 

* OF USER * 

* ROUTINE * 

* ADDRESSES * 
***************** 



**H1 ******* 

* * 

* GET * 

► STORAGE FOR * 

* USER LABELS * 

* * 
*********** 



**** 

► * 

► 1 * 

► * 
• *** 



.* . 

Ft *. 
**** .* *. 

* * NO .* USER *. 

► 4 *< *LABEL ROUTINES.* 

* * *. PROVIDED .* 
**** *. .* 

*. .* 
♦YES 



*-*-*-*-*-*-*-* 

* USER * 

* PROCESSING * 

* ROUTINE * 

*********** 



SEE TEXT 
***** H2 **********FOR RETURN 

* CHECK *CODE 

* USER'S *DESCRIPTION 

* RETURN * 

* CODE * 

* * 
***************** 



1) ONE ENTRY TO USER 
ROUTINE FOR EACH 
LABEL PROCESSED. 

2) REGISTER CONTENTS 
ARE AS FOLLOWS: 
GR1: PARAMETER LIST 

(SEE FIGURE TEXT) . 
GR14: RETURN ADDRESS 

TO UTILITY PROGRAM 
(MUST BE SAVED BY 

GR15: ENTRY* POINT ADDRESS 
FOR USER ROUTINE. 



**** 

* * NO 

* 6 *< * 

* * 
**** 



J2 *. 

.* *. 

, *TERMINATION* . 

. REQUESTED . 

*. .* 

*. .* 

*. .* 

* YES 



• *** 

► * * 

► 6 *< * 

► * * 
**** * 



*****K2 ********** 



TO THAT BEGINNING AT POINT 

AND RETURNING TO POINT 2 OCCURS. 



SET 

TERMINATION 

INDICATOR 



***************** 



• Figure 68. General Logic of Utility Program With User Label-Processing Routine Exits 
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Parameter List 

When the utility gives control to a user label-routine, general register 1 contains the 
address of a parameter list whose format is given in Figure 69. 

















u 

4 
ft 


Not Used 


Address of 80-byte label buffer area 


Flag byte 


Address of DCB being processed 


12 


Error flags 


Address of status information 
(for uncorrectable I/O errors) 


Presently not being used 



Figure 69. Parameter List Passed to User-Label Exit Routine 



A description of the underlined fields 
indicated by the parameter list in Figure 
69 is given below. 

* label buffer area : prior to entering a 
label routine, user header or trailer 
labels are read into this area by the 
operating system. When a user's label 
routine constructs labels, the labels 
are placed (one at a time) in this 
area. 

• status information address ; if an 
uncorrectable I/O error occurs during 
the reading or writing of a user label, 
bit of the high-order ( error flags ) 
byte of this field is set to 1. The 
three low-order bytes of this field 
contain the address of the standard 
status information for SYNAD routines. 
(See the publication IBM System/ 3 60 
Operating System: Supervisor and Data 
Management Services , Form C28-6646.) 

Note : At volume switch time, the utility 
routines use the information contained in 
the flag byte of the second word to indi- 
cate end of volume or end of data. 



PARAMETER LIST MODIFICATION 

For IEBUPDTE, the following modifica- 
tions are made to the parameter list: 

• When there are user label-processing 
routines, the first meaningful field of 
the parameter list passed to the user 
output-label routine points to the 
label buffer * This buffer, which con- 
tains a label data record from the 
SYSIN data set, is for the user to 



inspect before the record is written as 
a label. 

If the error status information in the 
parameter list is established as a 
result of a reading error, the user 
routine must return one of the return 
codes (described in the next section) 
or the program will be terminated. 

If the error status information is 
established as a result of a recording 
error, bit 1 (of the error-flags byte) 
is set to 1 to indicate that the error 
occurred during an output operation. 
In this case, the user routine must 
return a code of either or 4, or the 
program will be terminated. 

For header labels only, a fifth entry 
in the parameter list occurs under the 
conditions given below. The first byte 
of this entry is meaningless, and the 
last three bytes contain the address of 
the label that has been replaced from 
the old master data set (SYSUT1) . The 
conditions (all of which must be pre- 
sent) for the occurrence of the entry 
are: 

1. An update of the old master is 
specified via the keyword 
UPDATE=INPLACE . 

2. A LABEL statement must be speci- 
fied for header labels in the 
input data set. 

3. A user label-routine corresponding 
to the LABEL statement is speci- 
fied and user labels are encoun- 
tered on SYSUT1. 
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Return Codes 

One of the following return codes must be placed in general register 15 when a user 
(label-processing) exit routine gives control back to the utility program. An incorrect 
(or no) code results in termination of the program. 



Type of Routine 
Input header or 
input trailer 
label 



Output header or 
output trailer 
label 



Code System (Utility) Response 

Resume normal processing. Ignore additional labels in the label 
group. 

4 Read next user label into buffer area. Return control to user- 
exit routine. Resume normal processing if no more labels. 

16 Request termination of label processing. Utility program per- 
forms clean-up functions and terminates. 

Resume normal processing. No label is written from buffer area. 

4 Write label from buffer area. Resume normal processing. 

8 Write label from buffer area. If less than eight labels 

created, return to exit routine. Otherwise, resume normal 
processing. 

16 Request termination of label processing. Utility program per- 
forms clean-up functions and terminates. 



RETURN CODE MODIFICATIONS 



For IEBUPDTE, the following modifications are made to the return codes when the key- 
word UPDATE=INPLACE is specified. 



Type of Routine Code 
Input header 

4 

8 

12 



16 



System (Utility) Response 
Same as above. 

Same as above. 

Write label from buffer area. Resume normal processing. 

Write label from buffer area. Read next label into buffer 
area. Return control to user exit routine. Resume normal 
processing if no more labels. 

Request termination of label processing. Utility program 
performs clean-up functions and terminates. 
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For IEBCOMPR, the following modifications are made to the return codes, depending on 
the operand in the LABELS statement: (See Figure 70) 



Type of Routine 
Input header or 
trailer Labels 



User Return Code 
16 



16 



0* 
0* 



LABELS Statement 
DATA = ALL 



DATA * ALL 



DATA 
DATA 



ALL 
ALL 



System (Utility) Response 
Return a code of 4 to 
Open routine. Take no 
additional label exits . 
Return a code of to Open 
routine. 

Ignore rest of labels. 
Same as for code 16. 
Same as for code 16. 



♦After SYSUT1 and SYSUT2 have been opened, the following conditions are tested and the 
response indicated is taken. 



0, with 
a previous 
code of 16 

0, with 

no previous 

code of 16 



DATA = ALL 



DATA * ALL 



DATA = ONLY 
DATA * ONLY 



Compare the labels, 
then terminate the 
processing. 

Terminate the processing. 
Compare available 
labels. Then check 
LABELS statement 
operand as follows : 
Terminate the processing. 
Compare the data of the 
appropriate data sets. 
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**** A3* ******** 
i> PROM USER "I 
* ROUTINE i 

N i 

*************** 



B3 *. 
. * CODE *. 

=16 OR *. NO 
.* 



. * 

. .* 

* YES 



*****C3********** 

* * 

* SET FLAG * 

* TO INDICATE * 

* CODE * 

* * 
***************** 



****B4********* 

* USE GENERAL * 
->* RETURN CODE * 

* i 
*************** 



*****D2 ********** 

* PASS A RETURN * 
*CODE OF BACK * 

* TO OPEN *<- 

* ROUTINE * 

* * 
***************** 



*****£2 ********** 

* IGNORE * 

* REST OF * 

* LABELS *- 



D3 



.* DATA=ALL 
. PARAMETER 



YES 



***************** 



**E3******* 

* COMPLETE * 

* DATA SET * 
->* OPENING *<- 

* PROCEDURE * 

* * 
*********** 



V 

.*. 

F3 *. 

.* CODE= *. 





*. 



*****DH ********** 

* PASS A RETURN * 
♦CODE OF H BACK * 

->* TO OPEN *- 

* ROUTINE * 

* * 
***************** 



*****D5********** 

* READ REST * 

* OF LABELS * 
->* * 



****F4 ********* 

* RESUME * 
->* PROCESSING * 

* 4 
*************** 



***************** 



*****£5 ********** 

* TAKE NO * 

* MORE LABEL * 
-* EXITS * 



***************** 



****j2 ********* 

¥ * 

► TERMINATE *<- 
» * 

*************** 



V 
.*. 

G3 *. 
. * HAS * . 
.♦THERE BEEN *. YES 

*A PREVIOUS CODE* 

OF 16 IN THIS 
*. RUN .* 
*. .* 
* NO 



*****H3* ********* 

* COMPARE * 

* ANY EXISTING * 

* LABELS * 



***************** 



V 

.*• 

J3 *. 



, * DATA=ONLY *. NO 
STATEMENT . * 



.* DATA=ALL *. YES 

->*. STATEMENT .* 

*. .* 



*****j{j ********** 

* COMPARE * 

* DATA OF THE * 
->* TWO DATA SETS *- 



. * 



*****G5 ********** 

* COMPARE * 

* LABELS * 
->* * 



***************** 



****H5 ********* 

t i 

* TERMINATE * 

Y A 

*************** 



****J5 ********* 

* CONTINUE =1 
->* PROCESSING i 

* 1 
*************** 



***************** 



•Figure 70. Return Code Modification for IEBCONPR Program 



224 



Index 



Alternate tracks, 
assigning of 84,197-200,218 

Auxiliary parameters for IEHPROGM, IEHMOVE, 
IEHLIST, IEHIOSOP, IEHUCSLD, IEHINITT, and 
IEHDASDR 10 



Formatting procedure 81-84 

IPL records 84 

volume labels . 84 

VTOC record 84 



Catalog 

listing a 43-46 

modifying a 16-27 

moving or copying a 28-42 

Channel programs for IEHDASDR 82-83 

Close 

updating XCTL tables of 47-49 

Communication area 

IEBDG 169-171 

IEHMOVE . 35-36 

Comparing header and trailer labels . . . 113 

Comparing labels as data 114-115 

Comparing records 113-116 

Control card scanner for IEHMOVE and 

IEHLIST 13 

Copying and modifying records 117-120 



DASDI 197-200 

Data set 

indexed sequential 

copying 125 

loading 129-130 

printing 129-130 

unloading 126-127 

input stream 145-151 

listing the directory of a 

partitioned 43-46 

members, copying and merging 108-112 

moving or copying 28-42 

scratching a 16-27 

SYS1.LOGREC 50-64 

Data set compression 108-110 

using XDAP macro instruction ... 109-110 

Data set, utility programs 101-192 

DCB exit list 

IEHMOVE , 36 

DCB exit routine 

IEBDG 154-155 

Debugging aids 

IEBDG 168-176 

Default values 

IEBDG field definition (FD) 160 

Device allocation and volume mounting for 

IEHPROGM, IEHMOVE, and IEHLIST 10 

Direct access storage device initialization 
(see DASDI) 

Dumping a volume 201-203 

Dumping direct access volumes .... 73,77-80 



EOV, updating XCTL tables of 47-49 

Error procedures 

data cell 83-84 

disk and drum . . 83 



Generator storage (2821), loading of 
user-supplied character images 65-72 



IBCDASDI 197-200,218 

IBCMPRS 201-205,218 

IBCRCVRP 206-213,218 

IEBCOMPR 113-116,214 

IEBCOPY 108-112,214 

IEBDG .. 152-192,218 

clean-up function 156 

FD pattern construction 157-161 

FD table 

construction 157-161 

modification 165 

updating 166-167 

generalized module functions 153 

invocation 15 4 

modifying the output record .... 165-167 

module residence 153 

output data set records .153 

processing control cards 

CREATE 161-165 

DSD 156 

DUMP 156,168 

END 156 

FD 157 

REPEAT 156 

reading control cards 155 

scanning control cards 154 

tables used by create 

module 161-162,164-165 

IEBEDIT 145-151,214 

IEBGENER 117-120,214-215 

IEBISAM 125-139,217 

intialization of 125 

termination of 130 

IEBPTPCH . 121-124,214 

IEBUPDAT 140-144,218 

IEBUPDTE 101-107,218 

IEHDASDR 73-100,215-216 

concurrent processing, definition of 73 

service routines ... ..;... 85-86 

abnormal end appendage 86 

alternate track 8b 

data 86 

end-of-extent appendage 86 

message builder 85,86 

message writer 86 

password protection 86 

scan 86 

IEHINITT 68-72,215 

IEHIOSUP 47-49,215 

IEHLIST 43-46,218 

IEHMOVE 28-42, 216-217 

IEHPROGM 16-27,217-218 



Index 225 



IEHUCSLD 65-67,215 

IFCDIPOO 50-52 

IFCEREPO 53-64 

Independent utility programs 193-213 

Initializing direct access volumes 73 

analyze and format 81-84 

channel programs 83 

GETALT 85 

label' 84-85 

Initializing SYS1 . LOGREC 50-52 

Invoking system utilities 10 

I/O support, updating XCTL tables for 47-49 



Libraries, updating symbolic 101-107 

Listing system control data 43-46 

"Making copies" 73 

Modifying system control data 16-27 

Moving and copying data 28-42 

Null data set 

IEBDG 15 5 

Open, updating XCTL tables of 47-49 

Parameters, auxiliary for IEHPROGM, 

IEHMOVE, IEHLIST, and IEHUCSLD 10 

Partitioned data set 

listing the directory of 43-46 

members, copying and merging 

IEBCOPY 108-112 

IEHMOVE 28-42 

modifying the directory of 16-27 

moving or copying a 28-42 

updating a 101-107 

Physical sequential data set 

record format 126-127 

Printing and punching records 121-124 

RDCDRT 13 

Record formats 

and variable spanned records for 

IEBPTPCH 122 

catalog 34 

how to find 36 

of DASEDR dumped data 201 

recovery output tape 208 

SYS1. LOGREC 50 

SYSUT1 30,34 

SYSUT2 30 

SYSUT3 32 

track zero 197 



Records 

comparing 113-116 

copying and modifying 117-120 

printing and punching 121-124 

Recovering and replacing a track . . 206-207 
Restore a volume 73,80-81 

Stand-alone utility programs 

(see independent utility programs) 

Supervisory routine 

of independent utilities . . . . v . . 193-196 

Support utility programs 

(see independent utility programs) 

Surface analysis procedure 

data cell 83 

disk and drum 8 2-8 3 

Symbolic libraries, updating 101-107 

SYS1. LOGREC 

initializing 50-52 

writing records from 53-64 

System control data 

listing of 43-46 

modification of 16-27 

System utility programs 10-100 

Updating symbolic libraries 101-107 

User-label processing/ exits 219-224 

IEBCOMPR 114-115 

IEBPTPCH 122-123 

IEHMOVE 31-35 

Return codes 222-223 

Varible spanned records 

IEBGENER 117 

IEBPTPCH 122 

IEHMOVE 31 

Volume 

dumping of 201-203 

initializing of 197-200 

moving or copying a 28-42 

restoring of 203-205 

scratching a data set from 16-27 

table of contents, listing of .... 43-46 

modifying of 16-27 

writing of 197-200 

Volume mounting for 

IEHPROGM, IEHMOVE, and IEHLIST 10 

Volume table of contents 

listing of 43-46 

modifying of 16-27 

writing of 197-200 

Work data set record 

formats for IEHMOVE 30-34 

XCTL tables, updating 

for I/O support 47-49 

XDAP macro instruction 

used in data set compression ... 109-110 



226 




Technical Newsletter 



File Number 
Re: Form No. 
This Newsletter No. 



S360-30 

Y28-6616-4 

Y28-2363 



Date 

Previous Newsletter Nos. 



February 1, 1969 
None 



IBM SYSTEM/360 OPERATING SYSTEM 
INPUT/OUTPUT SUPERVISOR 
PROGRAM LOGIC MANUAL 



This Technical Newsletter, a part of release 17 of IBM 
System/360 Operating System, provides replacement pages 
for Input/Output Supervisor Program Logic Manual, 
Form Y28-6616-4. .These replacement pages remain in 
effect for subsequent releases unless specifically altered. 
Pages to be inserted and/or removed are listed below. 

65,66 

A change to the text or a small change to an illustration 
is indicated by a vertical line to the left of the chanqe; 
a changed or added illustration is denoted by the symbol • 
to the left of the caption. 

Summary of Amendments 



Changes have been made to correct printing 
errors. 



Note : File this cover letter at the back of the manual to 
provide a record of changes. 



IBM Corporation, Programming Systems Publications, P.O. Box 390, Poughkeepsie, N.Y. 12602 



PRINTED IN U.S.A. 



When processing is complete, the DEVTYPE 
routine places a return code in general 
register 15. An error return code of 04 
indicates one of the following conditions: 



• No output area specified: the area pa- 
rameter is missing from the DEVTYPE 
macro instruction. 



IOHALT ROUTINE 

When the IOHALT routine (SVC 33) receives 
control, it is given the address of the UCB 
associated with the device to he stopped. 
It checks that address for validity, then 
inspects the UCB device code field to make 
sure that the device is not a direct access 
device. 



• DD name not found: there is no TIOT 
entry that corresponds to the DD name 
supplied. 

• Invalid UCB unit type field: the UCB 
unit type field (byte 4 of the device 
code field) does not specify a direct 
access, tape, or unit record device. 

If the request is completed satisfactorily, 
the DEVTYPE routine places a return code of 
00 in general register 15„ and exits via 
SVC 3. 



IOHALT branches to a resident I/O Super- 
visor subroutine to issue the HIO instruc- 
tion and examine the resulting condition 
code. If no error occurs, control returns 
to IOHALT. 



The appropriate condition code is placed 
in general register lb. If the operation 
was successful, the IOHALT routine places a 
post code (X'US*) in the ECB code field of 
the IOB and issues SVC 3 to exit. 
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Form Y28-6616-4, Page Revised by TNL Y2 8-2363, 2/1/69 
SECTION V: CONTROL BLOCK AND TABLE FORMATS 



The I/O supervisor uses control blocks and 
tables to communicate with itself, with the 
rest of the control program, with proces- 
sing programs, and with I/O devices. 



This section of the publication 
describes in detail the characteristics of 
the control blocks and of the tables used 
by the I/O supervisor. 



Figures 8 through 21 show control block 
and table formats. Where pertinent, a dis- 
cussion of the fields follows the figures. 



For convenience, the following control 
blocks and tables are presented in alpha- 
betical order: 



Attention Table 

Channel Search Table 

Data Control Block 

Data Extent Block 

Device Table 

Error Recovery Procedure Interface 

Bytes (ERPIB) 
Event Control Block 
Input/Output Block 
Logical Channel Word Table 
Request Element Table 
Statistics Table 
UCB Lookup Table 
Unit Control Block 



ATTENTION TABLE 

The attention table is used by the I/O supervisor to obtain the addresses of the atten- 
tion routines required to service the I/O devices attached to the system. 

The attention table has the following characteristics: 

• Creation . The table is created at system generation time. 

• Storage Area . The table resides, as a permanent part of the resident supervisor, 
in protected resident storage (when protection is available) . 

• Size . The table contains one 4-byte entry per attention routine, up to a maximum 
of 64 entries. 

• Means of Access . The ATNTAB byte, supplied by the user in the UCB, is added to 
the starting address of the attention table to obtain the proper attention routine 
entry in the table for the device. 

• Format . The format of an attention table entry is shown in Figure 8. 



r~ 



Unused 



Attention Routine Address 



L 4. . 



| < 1 byte > | < 

, < „ 



3 bytes- 

4 bytes 



j 

>l 
>l 



L . 

Figure 8. Attention Table Entry Format 
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